Составить блок-схему по программе - Turbo Pascal - Ответ 3191770

program z3;
var a:array [1..15] of integer;
    i:integer; 
    begin
    for i:=1 to 15 do
    begin
    write('a[',i,']='); {пишем с клавиатуры числа}
    readln(a[i]); 
    end;
    for i:=1 to 15 do 
    write(a[i]:3); {выводим заданные числа в строчку}
    writeln;
    for i:=2 to 15 do begin
    if a[i]=a[1] then write(i:3); 
    end;
    writeln;
    if a[i]<>a[1] then writeln('takix elementov nety!');
    end.

program z4;
const n=7;
var a:array [1..n,1..n] of integer;
      i,j:byte;
      begin
      randomize;
      for i:=1 to n do begin
      for j:=1 to n do
      begin
      a[i,j]:=1;
      write(a[i,j],' ');
      end;
      writeln;
      end;
      writeln;
      for i:=1 to n do begin
      for j:=1 to n do
      begin
      if j<n+1-i then
      a[i,j]:=0;
      write(a[i,j],' ');
      end;
      writeln;
      end;
      end.

program z5;
var
f:file of real;
s,m:real;
i,n:integer;
filename:string;
begin
writeln('vvedite imya');
readln(filename);
assign(f,filename);
rewrite(f);
for i:=1 to n do
begin
n:=random(10);
readln(n);
write(f,m);
end;
close(f);
end.

program z2;
var f:file of real;
    i:integer;
    n:real;
    filename:string;
    begin
    writeln('vvdite imya faila');
    readln(filename);
    assign(f,filename);
    reset(f);
    while not eof(f) do
    begin
    read(f,n);
    write(n:5:1); 
    end;
    close(f);
    end.

program z5;
var
f:file of real;
s,m:real;
i,n:integer;
filename:string;
begin
writeln('vvedite imya');
readln(filename);
assign(f,filename);
reset(f);
while not eof(f) do
begin
inc(i);
read(f,m);
if i mod 2=0 then 
s:=s+m
end;
writeln('otvet=',s:4:2);
close(f);
end.