Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения

-x, если x <= 0,
f (x) = x^2 , если 0 < x < 2,
4, если x >= 2

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.

автор: Sklyarov Sergej a.k.a. S9