Написать программу которая проверяет делится ли ** 3 целое двузначное число

Question

Написать программу которая проверяет делится ли на 3 целое двузначное число

Answer 1

Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 3=0 then
  writeln('Делится на 3')
  else writeln('Не делится на 3')
end.