Ввести с клавиатуры пятизначное число и определить, является ли оно палиндромом. Одинаково читается в обоих направлениях (например, 12321 – палиндром, 12345 – не палиндром).

Спасибо!

var n:integer; beginwriteln("Введите пятизначное число :"); ReadLn(n); if ((n div 10000)=(n mod 10)) and      (((n div 1000) mod 10)=((n mod 100) div 10))            then    writeln('---Введенное Число ПАЛЕНДРОМ---')      else   writeln('---Введенное Число не является Палендромом---'); Readln; end.