Составить блок схему со стрелочками к программе:
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;</p>
writeln;
writeln ('kolichestvo chisel menshe 10 - ',r);
end.