PascalABC
Составьте программу вычисления значений функции:

program Project1;

  var x, y:double;

begin

 writeln('Enter x: ');

 readln(x);

 if (x>1) then

   y:=ln(sin(x)+4)

 else if (x<-4)then

   y:=2*cos(x)-5*sin(x)

 else y:=ln(3-sin(x));

 writeln(y);

 readln;

end.