program da;
var x,y,y1,y2:real;
begin
writeln('vvedite x');
readln(x);
y1:=sin(x)/cos(x)*sin(x)/cos(x)*(9.3*sqrt(abs(x))+sin(x));
y2:=0.8*arctan(SQRT(1-sqr(cos(x/2)))/cos(x/2));
y:=y1+y2;
writeln('y=',y);
end.
большое спасибо заранее
program da;
var x,y,y1,y2:real;
begin
writeln('vvedite x');
readln(x);
y1:=sin(x)/cos(x)*sin(x)/cos(x)*(9.3*sqrt(abs(x))+sin(x));
y2:=0.8*arctan(SQRT(1-sqr(cos(x/2)))/cos(x/2));
y:=y1+y2;
writeln('y=',y);
end.