Нужно написать программу. Найдите сумму цифр не кратных 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.