Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения: f(x) = 2*sin(x), если x > 0, 6 - x, если x

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.

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