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

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