Требуется написать программу, определяющую, является ли четырехзначное натуральное число n палиндромом, т. е. числом, которое одинаково читается слева направо и справа налево. входные данные натуральное число n (1000 ≤ n ≤ 9999). выходные данные следует вывести слово «yes», если число n является палиндромом, или «no» – если нет.

begin

  var s : = readinteger('n=').tostring;

  if (s[1] = s[4]) and (s[2] = s[3]) then println('yes')

  else println('no')

end.

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.