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.