begin 

    comment library 1;

    integer 
        i; 
    real 
        x; 
    x := 3.2; 
    i := - 2; 
    outreal(1, i^x)
end 


algol

begin 

    comment library 1;

    integer 
        i, 
        j; 
    i := 0; 
    j := - 2; 
    outreal(1, i^j)
end 


algol

begin 

    comment library 1;

    integer 
        i; 
    real 
        x; 
    x := 0.0; 
    i := - 2; 
    outreal(1, x^i)
end 



algol

begin 

    comment library 1;
    integer procedure p(b); 
        value 
            b; 
        boolean 
            b; 
        p := (if b then 1 else 3.3) div 6; 

    outreal(1, p(true )); 
    outreal(1, p(false ))
end 


algol

begin 

    comment library 1;
    integer 
        i, 
        j; 
    i := 2; 
    j := 3; 
    outreal(1, i^j div j)
end 


algol

begin 

    comment library 1;
    integer 
        i,
        j,
        k,
        case;

    procedure equal(i, j); 
        value 
            i, 
            j; 
        integer 
            i, 
            j; 
        if i \= j then 
            begin 
            outreal(1, case); 
            outreal(1, i); 
            outreal(1, j)
            end 
        else 
            case := case + 1; 

    i := 2; 
    j := 5; 
    k := 9; 
    case := 0; 
    equal(i + j + k, 16); 
    equal(i + j - k, - 2); 
    equal(i + j * k, 47); 
    equal(i + j div k, 2); 
    equal(i + j^k, 1953127); 
    equal(i - j + k, 6); 
    equal(i - j - k, - 12); 
    equal(i - j * k, - 43); 
    equal(i - j div k, 2); 
    equal(i - j^k, -1953123); 
    equal(i * j + k, 19); 
    equal(i * j - k, 1); 
    equal(i * j * k, 90); 
    equal(i * j div k, 1); 
    equal(i * j^2, 50); 
    equal(j div i + k, 11); 
    equal(j div i - k, - 7); 
    equal(j div i * k, 18); 
    equal(j div i div k, 0); 
    equal(j div i^k, 0); 
    equal(i^j + k, 41); 
    equal(i^j - k, 23); 
    equal(i^j * k, 288); 
    equal(i^j div k, 3); 
    equal(i^j^2, 1024); 
    outreal(1, case)
end 



algol

begin 

    comment library 1;

    integer 
        i, 
        j; 
    i := 3; 
    j := - 2; 
    outreal(1, (81 * i^j) div 2); 
end 


algol

begin 

    comment library 1;

    integer 
        i; 
    switch s := 
        s1, 
        s2, 
        s3, 
        s4; 
    for i := 1 step 1 until 4 do 
        begin 
        goto s[i]; 
        s1 :; 
        if i \= 1 then 
            outreal(1, i)
        else 
            goto exit; 
        s2 :; 
        if i \= 2 then 
            outreal(1, i)
        else 
            goto exit; 
        s3 :; 
        if i \= 3 then 
            outreal(1, i)
        else 
            goto exit; 
        s4 :; 
        if i \= 4 then 
            outreal(1, i)
        else 
            goto exit; 
        exit :; 
        end; 
end 


algol

begin 

    comment library 1;

    integer 
        i; 
    switch s := 
        s1, 
        s2, 
        s3, 
        s4; 
    for i := 1, 
        2, 
        3 do 
        begin 
        goto s[i]; 
        s1 :; 
        if i \= 1 then 
            outreal(1, i)
        else 
            s2 : if i \= 2 then 
                outreal(1, i)
        end; 
    s3 :; 
    outreal(1, i); 
    goto s[i + 1]; 
    s4 :; 
    outreal(1, i)
end 




algol

begin 

    comment library 1;

    integer 
        i; 
    switch s := 
        s1, 
        s2, 
        s3; 
    i := 1; 
    goto s[i]; 
    for i := 1, 
        2, 
        3 do 
        begin 
        s1 :; 
        outreal(1, 10); 
        s2 :; 
        outreal(1, 20); 
        outreal(1, i)
        end; 
    s3 :; 
    outreal(1, 30)
end 


kdf9