Написать программу при выполнение которой с клавиатуры вводятся 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.