Program P104;
 { Parametru formal procedură }
type TP=procedure(i : integer);
var v : TP;

procedure P1(j : integer);
begin
  writeln(j+1);
end; { P1 }

procedure P2(k : integer);
begin
  writeln(k+2);
end; { P2 }

procedure P3(m : integer);
begin
  writeln(m+3);
end; { P3 }

procedure T(P : TP; n : integer);
begin
  P(n);
end; { T }


begin
 v:=P3;
 T(v, 1);
 v:=P2;
 T(v, 1);
 T(P1, 1);
 readln;
end.