Блок-схема

[katerina2508]

Сделать бок-схему к программе.

Program lab:
Const M=5,
N=4;
B:array[1..M, 1..N] of integer;
A:array[1..N] of integer;
begin
writeln('-----')
for i:=1 to M do
for j:=1 to N do
read(B[i,j]);
writeln('matrica B');
for i:=1 to N do
for j:=1 to M do
write(B[i,j]);
writeln;
end;
writeln('matrica A');
for i:=1 to N do
begin
A[i]:=0
for j:=1 to M do
begin
A[i]:=A[i]+B[i,j];
writeln(A[i]);
end;
end.

Пожалуйста помогите. Заранее благодарна!

[ROMA2PVT]

А зачем составлять блок-схему к неверно сделанному заданию? Сначала код нормально напишите.