var a: integer;

procedure sub1;
    var a: integer = 0;
    procedure sub2;
        var a: integer;
        begin
            Writeln(a); //1    
        end;

    begin
      Writeln(a); //undefined
      if a=0 then
          a := 1
      else
          a := 2;
      sub2;
    end;


begin
    if a=0 then
        a := 1
    else
        a := 2;
    sub1;
end.