Дан одномерный массив состоящий из 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.