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

var
  x, y, f: real;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  if x * x > abs(4 * x * y) + 1 then
    if x + y <> 0 then
      begin
        f := ln(abs(x + y));
        writeln('f(x,y) = ', f)
      end
    else writeln('f(x,y) не определено')
  else
    if x * x < abs(4 * x * y) + 1 then
      if x * y <> 0 then
        begin
          f := sin(1 / x / y) / cos(1 / x / y);
          writeln('f(x,y) = ', f)
        end
      else writeln('f(x,y) не определено')
    else
      begin
          f := exp(x * y + sqrt(abs(sin(x))));
          writeln('f(x,y) = ', f)
      end
end.

var
  x, y, f: real;
  c: boolean;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  c := true;
  if x * x > abs(4 * x * y) + 1 then
    begin
      c := x + y <> 0;
      if c then f := ln(abs(x + y))
    end
  else
    if x * x < abs(4 * x * y) + 1 then
      begin
        c := x * y <> 0;
        if c then f := sin(1 / x / y) / cos(1 / x / y)
      end
    else f := exp(x * y + sqrt(abs(sin(x))));
  if c then writeln('f(x,y) = ', f)
  else writeln('f(x,y) не определено')
end.