Question

Помогите, пожалуйста

Answer 1

Var a:integer;
begin
write ('Введите четырёхзначное число: ');
readln (a);
if (a div 1000 + a div 100 mod 10 + a mod 100 div 10 + a mod 10) mod 3 = 0 then writeln ('YES')
else writeln ('NO')
end.