2013/14 – Fase scolastica – 12

È dato il seguente programma:

Program E12(Input, Output);
Function G(a, b: Integer): Integer; Forward;
Function F(a, b: Integer): Integer;
Begin
   If(a = b) Then
      F:=b
   Else If(a > b) Then
      F:= G(a-b, b)
   Else
      F:=F(b, b-a)
End;
Function G(a, b: Integer): Integer;
Begin
   If(a = b) Then
      G:=b
   Else If (a < b) Then
      G:= G(b-a, a)
   Else
      G:=F(a-b, b)
End;
Begin
   Write(F(30, 24))
End.

Cosa viene visualizzato a video dall’esecuzione del programma ?