(********************************************
 * Sa se gaseasca toate numerele care sunt  *
 * egale cu rasturnatul sau pana la un      *
 * numar dat n.                             *
 ********************************************)
Program Palindrom;
uses crt;
var n, i, r, ri: word;
    c: byte;
begin
 clrscr;
 write('n=');readln(n);
 for i:=n downto 1 do begin
  r:=i; ri:=0;
  repeat
   ri:=ri*10;      {Adaugam cifra '0' la dreapta rasturnatului}
   c:=r mod 10;    {Obtinem ultima cifra a nr}
   ri:=ri+c;       {Adaugam cifra obtinuta la rasturnat}
   r:=r div 10;    {Eliminam ultima cifra din nr}
  until r=0;
  if i=ri then write(i:8);
 end;
 readkey;
end.