Дано трёхзначное число. определить,кратна ли трём сумма кубов его цифр.

Var n, s: integer;
begin
  readln(n);
  n := abs(n);
  while n <> 0 do begin
    s := s + Trunc(Power(n mod 10, 3));
    n := n div 10;
  end;
  writeln(s mod 3 = 0);
end.