Напишите программу, которая в последовательности натуральных чисел определяет количество всех четных чисел, кратных 5. Входные данные: 10,14,50,25,17,0 Выходные: 2

var

a: array[1 ... 9999] of integer;

i, n, b: integer;

begin

write ('Кол-во чисел: '); readln (n);

for i:=1 to n do

begin

write (i, ' число = ');

readln (a[i]);

if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then inc (b);

end;

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

end.