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