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

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.