Дан одномерный массив состоящий из 15 элементов.Найти элементы кратные 5

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

i, sum; integer;

begin

writeln(\'Введите массив с клавиатуры\');

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

writeln(\'Считаем количество чисел, кратных 5\');

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

writeln(\'Количество чисел, кратных 5 \', sum);

end.