program brainly;
var
  number, summ :integer;
begin
  Write('Введите число: ');
  ReadLn(number);
  while number <> 0 do
  begin
  if (number mod 10 <> 0) and
     (number mod 10 <> 3) and
     (number mod 10 <> 6) and
     (number mod 10 <> 9) then summ += number mod 10;
  number := number div 10;
  end;
  Write('Сумма цифр числа, не кратных трём: ', summ);
end.