Program If24;
Var
x, y: Real;
Begin
ReadLn(x);
If x > 0 Then
y := 2 * sin(x)
Else
y := 6 - x;
WriteLn('f(x) = ', y);
End.
Program If24;
Var
x, y: Real;
Begin
ReadLn(x);
If x > 0 Then
y := 2 * sin(x)
Else
y := 6 - x;
WriteLn('f(x) = ', y);
End.