Program If26;
Var
x, y: Real;
Begin
ReadLn(x);
If x <= 0 Then
y := -x
Else If x >= 2 Then
y := 4
Else
y := Sqr(x);
WriteLn('f(x) = ', y);
End.
Program If26;
Var
x, y: Real;
Begin
ReadLn(x);
If x <= 0 Then
y := -x
Else If x >= 2 Then
y := 4
Else
y := Sqr(x);
WriteLn('f(x) = ', y);
End.