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

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.