begin
comment library 1;
    integer
        i,
        p;
    i := 0;
    for p := 1 step 1 until 4 do
        begin
        own integer
            i;
        if p = 1 then
            i := 3
        else
            i := 2 * i;
        begin
            integer
                j,
                i;
            j := 4;
            i := 0
        end;
        outreal(1, i);
        end;
end