Решите,срочно пожалуйста

Question

Решите,срочно пожалуйста

---

Answer 1

Var x,y: real;

Begin

Writeln ('vvedite x');

Readln (x);

If x>=0 then

y:=(sin(x)*Pi)/cos(2*x)

else y:=-(sin(x)*Pi)/cos(2*x) ;

Writeln ('y=',y:5:2);

End.