Ввести с клавиатуры n целых чисел. Отыскать произведение и количество чисел,

program zz1;

var a, b,  n, i, m:integer; // задаем переменные целого типа

begin

write( введите n );  // вводим с клавиатуры число

read(n);  

m:=1;

for i:=1 to n do

begin

read(a);  // вводим число

if a mod 7 = 5 then begin m:=m * a;b:=b + 1;end; // проверяем, если число при разделеньи на семь дает в остатке 5, то умножаем  его на творение и считаем количество таких чисел

end;

writeln( количество найденных чисел = , b); // выводим ответ

if m = 1 then write( таких чисел нет ) else write( творенье отысканных чисел = , m);

end.