дано целое двузначное число .если обе цифры числа одинаковые, вывести сообщение "да", иначе -"нет" в Паскале

Ответ:

var

  a:integer;

begin

  readln(a);

  if ((a div 10) = (a mod 10)) then

     writeln('да')

  else writeln('нет');

end.