Ввести с клавиатуры n целых чисел. найти произведение и количество чисел, которые при делении на 7 остаток 5. программу нужно написать на языке паскаль.

Var n,p,k,b,c: integer; begin k: =0; p: =1; writeln('введите количество чисел'); readln(n); writeln('введите числа'); for b: =1 to n do begin readln(c); if (c mod 7 =5) then begin k: =k+1; p: =p*c; end; end; if (k> 0) then  begin writeln('произведение равняется ',p); writeln('количество чисел равняется ',k); end; end.

Я не знаю ответ
Авария это чрезвычайное происшествие

Это- числа от 0 до 9

Винтон Серф;Тим Бернерс-Ли; Ларри Пейдж и Сергей Брин;
Билл Гейтс; Стив Джобс; Марк Цукерберг; Марк Андрессен

PS. Забавно, что что-то в тексте, который пришлось преобразовать в картинку, данный сервис посчитал запрещённым.