Составить программу, вычисляющую значение функции

begin

 var x,y:real;

 write('Введите х: '); readln(x);

 if x < 0 then y:=(1+(x.Sqr/(1+x.Sqr))).Sqrt

   else if x > 1 then y:=(1+power(abs(2*sin(3*x)),1/3)).Sqrt

     else y:=2*cos(x.Sqr);

 writeln('y(',x,')=',y);

end.

Объяснение:

.Sqr - возвращает квадрат числа

.Sqrt - возвращает квадратный корень числа

Рower() - возводит число в степень