Составить программу на языке Паскаль: Дано четырехзначное число. Проверить, является ли оно палиндромом. Примечание: палиндромом называется число, слово или текст, которые одинакового читаются слева направо и справа налево. Например, в нашем случае это числа 1441, 5555, 7117 и т. д.

• Var n,a,b,c,d: Integer;
  Begin
• Read \(n\);
• a:= n div 1000;
• b:= n div 100 mod 10;
• c:= n div 10 mod 10;
• d:= n mod 10;
• If \(a=d\) and \(b=c\)
• then write \('YES'\)
• else write \('NO'\);
• End.