code 31371;
    procedure  ALL LAG ZER(N, ALFA, ZER);
    value N, ALFA     ; integer N; real ALFA     ; array ZER;
    begin integer I; array A, B[0:N], EM[0:5];
        B[0]:= 0; A[N - 1]:= N + N + ALFA - 1;
        for I:= 1 step 1 until N - 1 do 
        begin A[I - 1]:= I + I + ALFA - 1;
            B[I]:= I*(I + ALFA)
        end;
       EM[0]:=ARREB; EM[2]:= "-10;EM[4]:= 6*N;
        ALL ZER ORT POL(N, A, B, ZER, EM)
    end ALL LAG ZER;
        eop