begin 
    switch s:=l;
    l: goto s[1)
end 

algol
begin 
    array a[1:10];
    a[1) := 1
end 

algol
begin 
    array a[1:10];
    a[1] = 1
end 


algol
begin 
    integer a;
    for a=1 do 
end 

algol
begin 
    switch s=l1,l2;
    l1:l2:
end 

algol
begin 
    own array [1:10];
end 


algol
begin 
    integer i;
    for i:= 1 step 1 do 
end 

algol

begin 

    comment library 1;

    integer 
        i; 
    integer procedure c; 
        begin 
        for c := 1 step 1 until 3 do 
            begin 
            i := i + 1; 
            if i < 10 then 
                c := c + 1
            end 
        end; 

    i := 0; 
    outreal(1, c)
end 


algol
labelwithoutcolon
begin 
end 



algol

begin 

    comment library 1;

    integer 
        i, 
        j, 
        k, 
        m; 
    integer procedure gpps(i, n, v, z); 
        integer 
            i, 
            n, 
            v, 
            z; 
        begin 
        for i := 1 step 1 until n do 
            v := z; 
        gpps := 1
        end; 

    for m := 1 step 1 until 25 do 
        begin 
        i := gpps(i, m + 1, k, if i = 1 then 1 else k +
            gpps(j, k - 1, j, if (k + 1) - (j + 1) * ((k +
            1) div (j + 1)) \= 0 then j else k * gpps(j, 1,
            i, i - 1))); 
        outreal(1, k)
        end 
end 


kdf9