Найдите произведение и количество цифр не кратных 5 в записи числа

Var n,p,k:integer; begin write('n = '); readln(n); p:=1; k:=0; while n>0 do  begin  if n mod 5 <> 0 then begin p:=p*(n mod 10); k:=k+1; end;  n:=n div 10;  end; writeln('p = ',p,'  k = ',k); end. Пример: n = 3251046 p = 144  k = 5