Блок схема к программе

[NeGaTiVe]

   for i:=1 to num do
   for j:=1 to num do
      ms[i,j]:=0;
   wrk:=1;

for i:=1 to 6 do
begin
  for j:=1 to 10 do
  begin
       if j<=i then
       begin
       ms[i,j]:=wrk;
       wrk:=wrk+1;
       end;
       if j>=11-i then
       begin
       ms[i,j]:=wrk;
       wrk:=wrk+1;
       end;

[Juffin]

http://ru.store4files.com/file/прогр...блок-схем.html

скачай, пользуйся


ПС не мое, первая ссылка в Яндексе

[NeGaTiVe]

мне нужно блок схему к этому коду нарисовать