Вычислить значение функции при помощи подпрограмм

uses crt;
var a,b:real;
 
function f2(a:real):real;
begin
f2:=1/a;
end;
 
function f1(a:real):real;
begin
f1:=(2+f2(2)+a+f2(a));
end;
 
function f(a,b:real):real;
begin
f:=f1(a)+f2(f1(a))+b+f2(b);
end;
 
begin
write('Введите a и b: ');
readln(a,b);
writeln('f(a,b)=',f(a,b));
end.

program PROG10_1;
 
var
  a, b: real;
 
function f(a, b: real): real;
begin
  f := (a * b) / (a + b);
end;
 
begin
  write('a = ');
  read(a);
  write('b = ');
  read(b);
  writeln(f(f(a, b), b));
end.

function f(a, b: Real): Real;
var t: Real;
begin
  t:=2+1/2+a+1/a;
  f:=t+1/t+b+1/b;
end;
var a, b: Real;
begin
  Write('a b: '); ReadLn(a,b);
  if (a<>0) and (b<>0) then WriteLn(f(a,b))
  else WriteLn('значение не определено');
end.

function f(a: Real): Real;
begin
  f:=a+1/a;
end;
var a, b: Real;
begin
  Write('a b: '); ReadLn(a,b);
  if (a<>0) and (b<>0) then WriteLn(f(2)+f(a)+1/(f(2)+f(a))+f(b))
  else WriteLn('значение не определено');
end.

function f(a: Real): Real;
begin
  f:=a+1/a;
end;
var a, b, t: Real;
begin
  Write('a b: '); ReadLn(a,b);
  if (a=0) or (b=0) then WriteLn('значение не определено')
  else begin
    t:=f(2)+f(a);
    if t=0 then WriteLn('значение не определено')
    else WriteLn(t+1/t+f(b));
  end;
end.