Дано двузначное число.найти кратна ли трем сумма его цифр

program zz1;

var a, b, p, s:integer; //задаем переменные целого типа

begin

write( введите двузначное число );  // вводим с клавиатуры двузначное число

read(a);  

b:= a mod 10; // находим вторую цифру двузначного числа

p:= a div 10; // обретаем первую цифру двузначного числа

s:=b + p;  // вычисляем сумму цифр

if s mod 3 = 0  // проверяем, если приобретенная сумма кратно трем, то

then write( сумма цифр кратно трем )    // выводим один ответ

else write( сумма цифр не кратно трем  ); // выводим другой ответ

end.