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

function f(x: real): real;
begin
  f := exp(x) * sqr(sin(x)) / (1 + ln(x * x))
end;
 
function w(a, b: real): real;
var ab: real;
begin
  ab := a * b;
  if ab < - 1
    then w := f(ab) / ab
    else if ab <= 1
      then w := cos(f(a + b))
      else w := f(a) + f(b)
end;
 
var a, b: real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('w = ', w(a, b));
  readln
end.

procedure f(var y: real; x: real);
begin
  y := exp(x) * sqr(sin(x)) / (1 + ln(x * x))
end;
 
procedure w(var y: real; a, b: real);
var ab, t: real;
begin
  ab := a * b;
  if ab < - 1
    then begin
      f(y, ab);
      y := y / ab
    end
    else if ab <= 1
      then begin
        f(y, a + b);
        y := cos(y)
      end
      else begin
        f(y, a);
        f(t, b);
        y := y + t
      end
end;
 
var a, b, z: real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  w(z, a, b);
  write('w = ', z);
  readln
end.