y = sin^2 (x ^2 + a^2 ) - 3 в корне x × b
s = 2 .7 × 10^3 × x^3 / a + cos( x + e^b )^3
a = 2.1
b = 0.02
x = 0.4
написать программу на паскале

Если необходим корень x*b для числа 3

var y,s,a,b,x: real;

begin

a:=2.1;

b:=0.02;

x:=0.4;

y:=sqr(sin(sqr(x)+sqr(a)))-power(3,(x*b)/2);

s:=2.7*power(10,3)*power(x,3)/a+power(cos(x+power(exp(1),b)),3);

writeln('y = ',y);

writeln('s = ',s);

end.

Если необходимо 3*корень(x*b)

var y,s,a,b,x: real;

begin

a:=2.1;

b:=0.02;

x:=0.4;

y:=sqr(sin(sqr(x)+sqr(a)))-3*sqrt(x*b);

s:=2.7*power(10,3)*power(x,3)/a+power(cos(x+power(exp(1),b)),3);

writeln('y = ',y);

writeln('s = ',s);

end.