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

var a:integer;
begin
writeln('Введите двузначное число');
readln(a);
if (a mod 3 =0) then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.

А зачем мне сумму считать,если числа,у которых сумма цифр кратна 3,делятся на 3?)

А ведь ты прав! Приношу свои извинения, не подумал про это. Хотя, если так посудить, на уроке спрашивать будут "универсальный" вариант, который легко переделать под любое число.