Язык паскаля напишите программу пожалуста кто рулит в информатике "Кратно ли трем сумма...

Question

Язык паскаля напишите программу пожалуста кто рулит в информатике
"Кратно ли трем сумма цифр двухзначного числа"

Answer 1

Var a:integer;
begin
write('введите число ');
read(a);
if ((a div 10 + a mod 10) mod 3=0) writeln('YES') else write ('NO');
end.