[sardar]

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   function palind(a:integer):boolean;
    var i,j,e,d:integer;s,s1:string;
      begin
         s1:=inttostr(a);
          for i:=length(inttostr(a)) downto 1 do
          s:=s+s1[i];
             if s=s1 then palind:=true
              else palind:=false;
       end;

 var a,b,i:integer;
begin
   readln(a,b);
    for i:=a to b do
     if (palind(i)=true)and(palind(i*i)=true) then
      write(i,' ');
     readln
end.

вроде как-то так...