задано двухзначное число. составить программу, которая отвечает на вопрос, правда ли, что все его цифры чётные

begin
  var n:=ReadInteger('Введите двухзначное натуральное число:');
  if (n div 10).IsEven and (n mod 10).IsEven then Writeln('Да')
  else Writeln('Нет')
end.


Введите двухзначное натуральное число: 28
Да