Ребята очень быстро плз​

var a:array[1..20] of longint;

   n,i:longint;

begin

for i := 1 to 20 do begin

 a[i] := random(101);

 if (a[i] > 70) then n := n + 1;

end;

for i := 1 to 20 do write(a[i],' ');

writeln();

writeln(n);

end.