function getobr(a: integer): integer;
var
b: integer;
begin
b := 0;
while a <> 0 do
begin
b := b * 10;
b := b + a mod 10;
a := a div 10;
end;
getobr := b;
end;
var
a, b, i: integer;
begin
write('Vvedite A i B : ');
readln(a, b);
for i := a to b do
if i = getobr(i) then
write(i, ' ');
readln;
end.