program q174147740;

var

 i, k: integer;

 a: array [1..20] of integer;

begin

k:=0;

 Randomize;

 for i := 1 to 20 do

 begin

 a[i] := Random(100);

 Write(a[i]:3);

 if (a[i] mod 15) =0 then k:=k+1;

end;

end.

Подробнее - на Znanija.com - znanija.com/task/23239171#readmore