begin

    comment library 1;

    integer
        n;
    n := 3;
    begin
        array
            a[1 : if n = 3 then 3 else - 100];
        integer
            n;
        n := 2;
        outreal(1, n);
    end;
    outreal(1, n)
end