Pascal 2.6.0 помогите с задачей пожалуйста.
Ребят, я даже не знаю куда обратиться, помогите пожалуйста с решением задачи в Pascal 2.6.0 free. не могу решить задачу, если есть возможность распишете пожалуйста полностью ее, очень буду вам благодарен.

Free Pascal))))var x,y:real;beginWrite('x=');read(x);if x<-4 then y:=tan(x) elsey:=x**4.8;if (x>=-4) and (x<=4) then y:= sqrt(abs(x))-(x+4)**2;writeln('y=',y:0:4);end.