Найти значение функции при заданном значении аргумента.

Танюше4ка

Помогите пожалуйста
1 ответ

Танюше4ка

Uses crt;
Var x,y:real;
Begin
ClrScr; Write('x='); Readln(x);
If x<-5 then y:=sqr(x)+2*x-7;
If (x<1) and (x>=-5) then y:=x+9;
If (x>=1) and (x<9) then y:=sqrt(x+3);
If x>=9 then y:=exp(1/3*ln(x-6));
Writeln('y=',y:4:2); Readln;
End.