Напишите программу на паскале дам 50 баллов.

Ответ:

var

 x,y,z:real;

begin

 x := -1.0 * (0.2) * 1.0;

 if x < 0 then y := tan(sqr(x))

 else y := 1 + x*x*x;

 z := exp(y) + sqrt(abs(sin(y*y*y)));

 writeln(z);

end.