Составить блок схему со стрелочками к программе:

Program name;

const n=30;

var a:array [1..n] of integer;

vari,r:integer;

begin

for i:=1 to n do

begin

a[i]:=random (20);

write (a[i],' ');

end;

r:=0;

for i:=1 to n do

if a[i]<10 then r:=r+1;

writeln;

writeln ('kolichestvo chisel menshe 10 - ',r);

end.

Со стрелочками  - смотри во вложении :)

Кстати, стрелочки на блок-схемах рисуются только вверх и влево. А вправо и вниз договорились рисовать просто линии.