program test3;
var g1,g2,i1:integer;

procedure three(p1:integer);

  procedure in3;
  var i2:integer;
  begin
  g1:=3;
  end;

begin
g2:=2;
in3;
p1:=g1;
end;

begin
three(i1);
end.