Вычислить значение выражения

begin
  var x := readlnreal('x = ');
  var t := readlnreal('t = ');
  if (x <= 0) or (t <= -1.5)
    then write('Выражение не определено')
    else write('y = ', (2.3 * x * x + 0.5) / (exp(-x / 2) - 1) /
      (1.5 * t * exp(-t * t / 2) + sqrt(t + 1.5)) /
      (power(0.5, x) * arctan(x / 3.7) - power(x / 3.7, 1 / 5)))
end.

var x, t, y: real;
    error: boolean;
begin
  x := readlnreal('x = ');
  t := readlnreal('t = ');
  y := power(0.5, x) * arctan(x / 3.7) - power(x / 3.7, 1 / 5);
  error := (y = 0) or (t < -1.5);
  if not error
    then begin
      y := (exp(-x / 2) - 1) * (1.5 * t * exp(-t * t / 2) + sqrt(t - 1.5)) / y;
      error := (y = 0)
    end;
  if not error
    then write('y = ', (2.3 * x * x + 0.5) / y)
    else write('Выражение не определено')
end.