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

спасибо

а как вот этот решить? Нужно написать программу. Найдите сумму и произведение цифр не кратных 3.

var n,p,k:integer;beginwrite('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 = 3251046p = 144  k = 5