Составить блок схему со стрелочками к программе: 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.