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

На каком языке? а число вводится с клавиатуры?

паскаль. да

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

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