code 31242;
     procedure NORDERPOL (N,K,X,A);
     value N,K,X;
     integer N,K;real X;array A;
     if X^= 0 then 
     begin integer I,J,NM1;
        real XJ,AA,H;
        array XX[0:N];
        XJ:=1;
        for J:= 1 step 1 until N do 
        begin XJ:=XX[J]:=XJ*X;A[J]:=A[J]*XJ end;
        H:=AA:=A[N];NM1:=N-1;
        for I:= NM1 step -1 until 0 do H:= A[I]:=A[I]+H;
        for J:= 1 step 1 until K do 
        begin H:=AA;
           for I:= NM1 step -1 until J do 
           H:= A[ I]:=A[I]+H;
           A[J]:=H/XX[J]
        end 
     end NORDERPOL ;
        eop