Пожалуйста посчитайте решить.Паскаль

begin
  var x:=ReadReal('x=');
  Writeln('y=',3*x*x/Cos(2*x))
end.


x= -0.57
y=2.33408244304191