code 31243;
     procedure DERPOL (N,K,X,A);
     value N,K,X;
     integer N,K;real X;array A;
     begin integer J; real FAC;
        FAC:=1;
        NORDERPOL (N,K,X,A);
        for J:= 2 step 1 until K do 
        begin FAC:=FAC*J;A[J]:=A[J]*FAC end 
     end DERPOL ;
        eop