2001/02 – Fase scolastica – 03

Cosa stampa il seguente frammento di programma?

Function f(Var a: Integer; b: Integer): Integer;
Begin
    a:=a+b;
    b:=a+b;
    f:=a+b
End;

Var
   a,b,c: Integer;
Begin
   a:=1;
   b:=2;
   c:=f(a,b);
   c:=c+a+b;
   WriteLn(c)
End.