Определить является ли пятизначное число вводимое с клавиатуры палиндромом

Вот на Паскале:
Program d1;
uses crt;
var
a,e,d,s,t,dt: integer;
begin
clrscr;
writeln('BBEDUTE 4UCJLO');
readln(a);
e:=a mod 10;
d:=a div 10 mod 10;
s:=a div 100 mod 10;
t:=a div 1000 mod 10;
dt:=a div 10000;
If(e=dt)and(d=t)Then
writeln('DA');
else
writeln('HET');
readln;
end.