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

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