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