Составьте программку, которая наполняет массив s [1..15] случайными целыми числами в

program massiv;

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

i, kol: integer;

begin

writeln(Включаем генератор случайных чисел);

randomize;

writeln(Наполняем массив);

for i:=1 to 15 do a[i]:=random(-15);

writeln(Подсчитываем);

for i:= 1 to 15 do if a[i] mod 3 = 0 then kol := kol + 1;

writeln(Количество чисел, кратных 3 равно, kol);

end.