По данным значениям аргументов a и b вычислить значение функции - Pascal (81158)

{функция определения максимума от x, y}
function max(x, y: double): double;
begin
  if x > y
    then max := x
    else max := y
end;
 
{ПРОЦЕДУРА преобразования аргументов: x = x + y и одновтеменно y = x - y}
procedure arg(var x, y: double);
begin
  x := x + y;
  y := x - y - y
end;
 
{проверка знаменателя на допустимость: rt = true при max(y + x, y - x) <> 0}
function rt(x, y: real): boolean;
begin
  arg(y, x);
  rt := max(y, x) <> 0
end;
 
{вычисление дроби}
function d(x, y: double): double;
begin
  arg(x, y);
  d := max(x, y) / max(x, -y)
end;
 
{функция по заданию}
function f(x, y: double): double;
begin
  f := d(x, y) + d(x * x, y * y)
end;
 
{вызывающая программа}
var a, b: double;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  if rt(a, b) and rt(a * a, b * b)
    then write('f(a, b) = ', f(a, b))
    else write('Function is undefined.');
  readln
end.