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

var x, y: real; d: boolean;
begin
  write('x = '); readln(x);
  d := x > 0; //ln(x) ----------------------------------------------------------------------+
  if d then begin y := sin(ln(x)); d := y <> 0 end; //2*x/y                                 |
  if d then begin y := 2 * x / y; d := y >= 0 end; //sqrt(y)                                |
  if d then begin y := sqrt(y); d:= frac(y / pi) - 0.5 <> 0 end; //tg(y)                    |
  if d then begin y := sin(y) / cos(y); d := y > 0 end; //ln(y)                             |
  if d then begin y := ln(y) / exp(ln(x+4) / 3); d := sin(x) >= 0 end; //sqrt(2*x*sin(x)) <-+
  if d then y := sqrt(2 * x * sin(x)) / 2 / x; // <-----------------------------------------+
  if d then writeln('Y = ', y) else writeln('Y is undefined');
  readln
end.