Elena_for

{Назовем натуральное число палиндромом,
если его запись читается одинаково с начала и с конца
(как, например 4884, 393, 1). Найти все меньшие 100 числа - палиндромы,
которые при возведение в квадрат также дают палиндромы.}
var
    i,x,y,d,h:integer;
begin
    for i:=0 to 99 do
        begin
        if(i<10) then
            begin
            x:=sqr(i);
            if(i>3) then
                y:=x mod 10;
            x:=x div 10;
            if(y=x)and(i>3) then write(i:4);
            if(i<4) then write(i:4);
            end
        else
            begin
            x:=sqr(i);
            if(i<32) then
                y:= x div 100
            else
            begin
                y:=x div 1000;
                d:=(x div 100)mod 10;
                h:=(x div 10)mod 10;
            end;
            x:=x mod 10;
            if ((i mod 10)=(i div 10))and((y=x)and(d=h)) then
                write(i:4);
            end;
        end;
    read;
End.