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

 var   
a,b,s,p : integer;    
begin 
readln (a); 
s := 0; 
p := 1;   

while a > 0 do   
begin   
b := a mod 10;   
a := a div 10;       
if b mod 3 <> 0 then     
s := s + b;   
if b > 5 then     
p := p * b;   
end;    
if p = 1 then   
p := 0;       
writeln (s);   
writeln (p); 
end.