Если необходим корень 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.