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

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