Дано двузначное число. Определить, кратна ли трем сумма его цифр?( Pascal)

Если вводится натуральное двузначное число:var n,s:integer;beginwrite('n = ');readln(n);s:=(n div 10)+(n mod 10);writeln('s = ',s);if s mod 3 = 0 then writeln('Сумма цифр кратна 3') else writeln('Сумма цифр не кратна 3');end.Пример:n = 56s = 11Сумма цифр не кратна 3