Ввести с клавиатуры n целых чисел. Найти произведение и количество чисел, которые при делении на 7 дают остаток 5.

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; / / проверяем, если число при делении на семь дает в остатке пять, то умножаем его на произведение и считаем количество таких чисел

end;

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

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

end.