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 


algol

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 
            own integer 
                j, 
                i; 
            i := 0; 
            if i = 0 then 
                j := 4
            else 
                j := 4 * i; 
        end; 
        outreal(1, i); 
        i := 0; 
        end; 
    i := 0; 
end 


algol

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 
            own integer 
                j, 
                i; 
            if i = 0 then 
                j := 4
            else 
                j := 4 * i; 
            outreal(1, j); 
        end; 
        i := 0; 
        end; 
    i := 0; 
end 



algol

begin 

    comment library 1;

    real 
        x; 
    x := 1.; 
    outreal(1, x); 
end 


algol

begin 

    comment library 1;

    real 
        x; 
    x := 1.@; 
    outreal(1, x); 
end 


algol

begin 

    comment library 1;

    real 
        x; 
    x := @+;outreal(1, x); 
end 



algol

begin 

    comment library 1;

    real 
        x; 
    x := @; 
    outreal(1, x); 
end 


algol

begin 

    comment library 1;

    real 
        x; 
    x := .; 
    outreal(1, x); 
end 


algol

begin 

    comment library 1;

    real 
        x; 
    x := @-1000; 
    outreal(1, x); 
end 




algol

begin 

    comment library 1;

    integer 
        i; 
    procedure p; 
        begin 
        integer 
            j; 
        procedure q; 
            if i > 10 then 
                goto l; 

        j := i := i + 1; 
        q; 
        outreal(1, j); 
        p; 
        l :; 
        outreal(1, j); 
        end; 

    i := 1; 
    p; 
end 


kdf9