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.