code 31241;
     procedure TAYPOL(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;
        XJ:=1;
        for J:= 1 step 1 until N do 
        begin XJ:=XJ*X;A[J]:=A[J]*XJ end;
        AA:=A[N];NM1:=N-1;
        for J:= 0 step 1 until K do 
        begin H:=AA;
           for I:= NM1 step -1 until J do 
           H:= A[ I]:=A[I]+H
        end 
     end else 
     for K:= K step -1 until 1 do A[K]:=0;
        eop