Написать программу при выполнение которой с клавиатуры вводятся 10 целых чисел. Программа выводит кол-во чисел кратных 5 и её произведение.

Var

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

count, prod, i : integer;

begin

count : = 0;

prod : = 1;

for i : = 1 to 10 do read (a[i]) ;

for i : = 1 to 10 do

if a[i] mod 5 = 0 then

begin

count : = count + 1;

prod : = prod * a[i];

end;

if count > 1 then write (count, ' ', prod) else write ('таких чисел нет') ;

end.