Дано четырехзначное число. Проверить, является ли оно палиндромом. Примечание: палиндромом называется число, слово или текст, которые одинакового читаются слева направо и справа налево. Например, в нашем случае это числа 1441, 5555, 7117 и т. д.
Решение:
program PalindromeNum; var n: word; a, b: byte; begin readln(n); a := n mod 10; n := n div 10; b := n mod 10; n := n div 10; a := 10 * a + b; writeln(n = a) end.