Pascal. Операторы ветвления. Задача 8

Дано четырехзначное число. Проверить, является ли оно палиндромом. Примечание: палиндромом называется число, слово или текст, которые одинакового читаются слева направо и справа налево. Например, в нашем случае это числа 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.