Блок-схема (Pascal)

[spinogryz_ua]

Нужна блок схема к даной программе.

Program p1;
 Uses crt;
 const n = 67;

 Var  matrix: array [1..n] of integer;
     i,p,q:integer;

begin
 writeln('p-?'); read (p);
  writeln('q-?'); read (q);
if (p>q) and (p>0) and (q>=0) then
  begin
  for i := 1 to n do
   begin
           matrix[i] := Random(90)+10;
           write( matrix[i],' ')
     end;
writeln;writeln;
  for i := 1 to n do
    begin
      if abs(matrix[i]) mod p=q then  matrix[i]:=0;
       write( matrix[i],' ')
    end;
 end

else  writeln( '(p>q) and (p>0) and (q=>0)');
readln;
end.

Не сочтите за наглость но есть еще 2 программы по каким нужны блок-схемы. Выложу только с вашего позволения.

Заранее благодарю!

[VIK_aka_TOR]

остальные не сочту за наглость в личке и за оплату... )
аська под авой.. мыло vik.aka.tor@gmail.com

[BDA]

Или воспользуйтесь FCEditor

[VIK_aka_TOR]

Сообщение от BDA

Или воспользуйтесь FCEditor

не пали кантору...)
p.s. оффтоп))

[spinogryz_ua]

Спасибо большое!!