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() - возводит число в степень
