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.