Var a,b,x:real;
Begin
Write('x = ');ReadLn(x);
a:=x+5;
b:=Sin(x);
x:=x*x;
if (a<=b)and(b<=x) then WriteLn(a,' ',b:0:3,' ',x)
else if (a<=x)and(x<=b) then WriteLn(a,' ',x,' ',b:0:3)
else if (b<=a)and(a<=x) then WriteLn(b:0:3,' ',a,' ',x)
else if (b<=x)and(x<=a) then WriteLn(b:0:3,' ',x,' ',a)
else if (x<=a)and(a<=b) then WriteLn(x,' ',a,' ',b:0:3)
else if (x<=b)and(b<=a) then WriteLn(x,' ',b:0:3,' ',a)
End.