Question

помогите пожалуйста, даю 40 баллов​

Answer 1

var x, y: real;

begin

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

       readln(x);

       y := sqrt(sqr(cos(x)) + abs(sin(2*x) - power(x, 5)));

       writeln('y = ', y);

end.