Требуется написать программу, определяющую, является ли четырехзначное натуральное число 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.