Определить, является ли число палиндромом

Program xa;
var
 a,n,x,d,b,i,c:integer;
begin
 Writeln('BBedute 4uLo');
 readln(n);
 if n<0 then
  n:=n*-1;
 b:=n;
 c:=n;
 i:=0;
 while n<>0 do
 begin
  n:=n div 10;
  inc(i,10);
 end;
 d:=1;
 i:=(i div 10)-1;
 while i<>0 do
 begin
  d:=d*10;
  dec(i)
 end;
 while b<>0 do
 begin
  a:=b mod 10;
  x:=x+a*d;
  d:=d div 10;
  b:=b div 10;
 end;
 if x=c then
  writeln('4uClo ' ,x, ' 9BL9etc9 noLuHdPomom')
 else
  writeln('4uClo ' ,c, ' He 9BL9etC9 noLuHDpoMoM');
 readln;
end.

Program xa;
var
 y1,y2,eps:real;
begin
 writeln('BBedute eps');
 Write('eps=');
 readln(eps);
 y1:=0;
 y2:=(y1+1)/(y1+2);
 while y2-y1>eps do
 begin
  y1:=(y2+1)/(y2+2);
  y2:=(y1+1)/(y1+2);
 end;
 writeln('4uCLo=' ,y2:3:10);
 readln;
end.

Program xa;
var
 a,s,i:integer;
begin
 i:=0;
 writeln('BBodute L/ufPbl (dl9 3aBePLLieHu9 BBoda bbeduTe 0)');
 repeat
  write('a=');
  readln(a);
  if a mod 10=3 then
  begin
   s:=s+a;
   inc(i);
  end;
 until a=0;
 Writeln('Cymma =' ,s, 'KoLu4eCTbo L/uFp=' ,i);
 readln;
end.

var N,M,K:longint;
begin
write('Vvedite naturalnoe chislo N=');
readln(N);
K:=N; {запоминаем N}
M:=0;
while N>0 do
     begin
       M:=M*10+(N mod 10); {отделяем последнюю цифру и прибавляем ее к М*10}
       writeln(M); {это не надо, просто видно как процесс идет}
       N:=N div 10; {берем число без последней цифры и все повторяем,            пока число не кончится}
    end;
if M=K then write('Palindrom')
else write('Ne palindrom');
readln
end.

Program xa;
Var
 n,m,i,a:integer;
begin
 Writeln('BBedute n u m ');
 Write('n=');
 readln(n);
 Write('m=');
 readln(m);
 while n>0 do
 begin
  i:=n;
  a:=0;
  while i>0 do
  begin
   a:=a+(i mod 10);
   i:=i div 10;
  end;
  If sqr(a)=m then
   Write(n, ', ');
  dec(n);
 end;
 readln;
end.