Блок-схема

[Павел58]

Ребята помогите нарисовать блок схему. не как не могу разобраться

Program Lab2;
var a:array[1..5,1..4]of real;
i,j,n,m:integer; max:real;
begin
writeln('vv n,m');
readln(n,m);
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
max:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]/max:4);
writeln;
end;
end.

Буду очень благодарен

[hon]

OpenOffice Draw чем не подходит? А вообще вот ссылка.

[Bugrimov]

Пиши на почту b_a82@mail.ru. Договоримся