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

Program d1;uses crt;vara,e,d,s,t,dt: integer;beginclrscr;writeln('BBEDUTE xxxxx 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)Thenwriteln('DA');elsewriteln('HET');readln;end.