Дано натуральное число, определить количество цифр кратных 3-ем и их сумму.Срочно !!

begin
  var n:=Abs(ReadInteger('n='));
  var (k,s):=(0,0);
  while n>0 do begin
    var d:=n mod 10;
    if d mod 3=0 then (k,s):=(k+1,s+d);
    n:=n div 10
    end;
  Writeln('В числе ',k,' цифр, кратных 3. Их сумма равна ',s)  
end.


n= 6035
В числе 3 цифр, кратных 3. Их сумма равна 9