1. Дано пятизначное число. Выяснить является ли оно палиндромом (например, 12321, 56465). Паскаль

Var A:integer; Begin WriteLn('Введите пятизначное число'); ReadLn(A); if (A div 10000 = A mod 10)and((A div 1000) mod 10 = (A div 10) mod 10) then Write('Число является полиндромом') else Write('Число не является полиндромом') End.