Вычислите F(X) в зависимости

[ss1112]

Вычислите F(X) в зависимости от введенного X. При составлении алгоритма использовать полную форму ветвления и вложенные структуры ветвления.

[newerow1989]

function f(x:real):real;
begin
   If x<=1 then
      Result:=-3*x*x+9 else
   If (1<x) and (x<10) then
      Result:=-3/(x+1) else
      Result:=-Sin(2*pi*x);
end;

var x:real;
begin
   Write('x = '); Readln(x);
   Writeln(f(x):5:5);
   Readln;
end.