Заданное с клавиатуры n чисел. Подсчитать произведение этих чисел и количество чисел, которые кратны 5. Используемый цикл While.

Program n1;

var n, a, k, i: integer;

p: real;

begin

write ('n=');

readln (n);

i:=0;

k:=0;

p:=1;

while (in) do

begin

write ('a[', i+1,']=');

readln (a);

p:=p*a;

if a mod 5=0 then k:=k+1;

i:=i+1;

end;

writeln ('p=', p);

writeln ('k=', k);

end.