Program P109;
 { Comunicarea prin variabile globale }
var a : integer;

procedure P;
var b, c, d : integer;

procedure Q;
begin
 c:=b+1;
end; { Q }

procedure R;
begin
 d:=c+1;
end; { R }

begin
 b:=a;
 Q;
 R;
 a:=d;
end; { P }

begin
 a:=1;
 P;
 writeln(a);
 readln;
end.