begin 

    comment library 1;

    real 
        i,
        j;
    array 
        a[1 : 2, 1 : 3];
    real procedure gps(i, n, z, v);
        real 
            i,
            n,
            z,
            v;
        begin 
        for i := 1 step 1 until n do 
            z := v;
        gps := 1
        end;

    outreal(1, gps(j, 3.0, i, gps(i, 2.0, a[i, j], i + j)));
    for i := 1 step 1 until 2 do 
        for j := 1 step 1 until 3 do 
            if a[i, j] != i + j then 
                outreal(1, 11 * i + j)
end