program NestedTest;
var g:integer;

procedure first;
var f:integer;

  procedure second;
  var s:integer;

    procedure third1;
    var t1:integer;
    begin
	    t1 := 310;
	    s := 31;
	    writeln('t1:', t1);
    end;

    procedure third2;
    var t2:integer;
    begin
	    t2 := 320;
	    s := 32;
	    writeln('t2:', t2);
	    if g <> 21 then
	    begin
	        g := 21;
		second;
	    end;
    end;

  begin
	  f := 2;
	  writeln('g:',g);
	  third1;
	  writeln('g:', g);
	  third2;
	  writeln('s:',s);
  end;

begin
	second;
	writeln('f:', f);
end;

begin
	g := 0;
	first;
	writeln('g:', g);
end.