Как построить блок-схему к программе

[lelik_bolik]

Пожалуйста помогите построить блок-схему к программе. Никак не получается


Program massiv;
Uses crt;
const n=14;
var z:array[1..n] of integer;
i,j,k:byte;
x:integer;
begin clrscr;
randomize;
writeln('ishodnyi massiv:');
for i:=1 to n do
begin
z[i]:=random(51)-14;
write(z[i]:4);
end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if z[i] >= 0 then
begin
k:=k+1;
x:=z[i];
for j:=i downto k+1 do
z[j]:=z[j-1];{на 1}
z[k]:=x;
end;
writeln('vyhodnoi massiv:');
for i:=1 to n do
write(z[i]:4);
readkey
end.

[Вадим Мошев]

www.fceditor.ru

если не поможет, построю я вам, но не бесплатно.

[Avvakymova]

Очень же легко написать по программе блок-схему
464-658-622-обращайся))

[Mad_Cat]

Вот схема ваша