Program a1;
uses crt;
var x,y,a,b,i:integer;
label 1;
BEGIN
clrscr;
1:
writeln('Ââåäèòå ÷èñëî "y"');
readln(y);
if (y<1000) and (y>99) then
for i:=100 to 999 do
begin
x:=i;
a:=x mod 10;
x:=x-a;
x:=x div 10;
x:=a*100+x;
if x=y then writeln('x=',i:2);
end
else goto 1;
readln;
END.