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

[4еловек-молекула]

Рrogram V;
uses crt;
var A:array[1..3,1..3] of integer;
min,i,j,m,n, s :integer;

begin
write('строк N= '); readln (n); {считываем размер массива}
write('столбцов M= '); readln (m); {считываем размер массива}

writeln ('Введите элементы массива: ');
for i:=1 to n do
for j:=1 to m do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем сам массив}
write ('Вот введенный Вами массив: ');
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j],' '); end; {выводим массив}
writeln;
writeln('Ответ');
s:=0;
for i:=1 to n do
begin
min:=a[i,1];
for j:=2 to m do
begin
if min > a[i,j] then min:=a[i,j];
s:=s+min;
end;
writeln('минимальный элемент ',i,' столбца : ',min);
end;


end.

[Aranea tela telam]

Бери