Function f(n: integer): integer; function g(n: integer): integer; определены с операционной семантики равенствами: f(0)=1, g(0)=2, f(n)=g(n-1), g(n)=f(n-1) + g(n-1). найти значения f(3) и g(3).

Program Project1;

function G(n: Integer): Integer;
begin
  if n = 0 then
    Result:=2
  else
    Result:=F(n - 1) + G(n - 1);
end;

function F(n: Integer): Integer;
begin
  if n = 0 then
    Result:=1
  else
    Result:=G(n - 1);
end;

begin
  WriteLn('G(3) = ', G(3);
  WriteLn('F(3) = ', F(3);
end.