Если сумма цифр введённого с клавиатуры четырёхзначного числа делится на 3 без остатка, то вывести "YES" иначе "NO"

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=Abs(ReadInteger);  var s:=0;  while n>0 do begin    s+=n mod 10;    n:=n div 10    end;  if s mod 3=0 then Writeln('YES') else Writeln('NO')end.