code 34359;
    real procedure COMEUCNRM(AR, AI, LW, N); value N, LW;
    integer N, LW; array AR, AI;
    begin integer I, L;
        real R;
        R:= 0;
        for I:= 1 step 1 until N do 
        begin L:= if I > LW then I - LW else 1;
            R:= MATTAM(L, N, I, I, AR, AR) + MATTAM(L, N, I,
            I, AI, AI) + R;
        end;
        COMEUCNRM:= SQRT(R)
    end COMEUCNRM;
        eop