Помогите решить задачу в паскале

Вот. Но не уверен

Переходи на питон. А лучше джава и с++

Калькулятор данного конкретного выражения:

 var X, Y: real;
begin
  while true do
    begin
      write('X: ');
      readln(X);
      Y := sin(50-25*cos(2*X)/(X*X))+sin(X)/cos(X);
      writeln('Y = ', Y)
    end
end. 

Работает до тех пор, пока принудительно не закроется окно консольного сеанса или не произойдёт run-time error (например, при введении нулевого значения переменной Х). А переменная Y здесь необязательна, хоть она и содержится в выражении.