Ввести с клавиатуры 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.