program borlpasc;
{найдите целые числа-палиндромы, которые при возведении в квадрат
тоже дают палиндромы}
var i,i1,i2:longint;
function Palindrom(n:longint):boolean;
var n1,n2,o:longint;
begin n1:=n;n2:=0; {n1 - данное число, n2 - число которое получится}
while n1>0 do
begin o:=n1 mod 10;{о - остаток от деления на 10}
n1:=n1 div 10;
n2:=n2*10+o;
end;
Palindrom:=(n=n2);
end;
begin writeln('Введите интервал поиска:');
write('Начало интервала:');readln(i1);
write('Конец интервала:');readln(i2);
for i:=i1 to i2 do
if Palindrom(i) and Palindrom(sqr(i))
then writeln(i,'-палиндром ',sqr(i),'-палиндром');
end.