code 31250;
procedure LINTFMPOL(P,Q,N,A);
value N,P,Q; integer N; real P,Q; array A;
begin 
    integer K;
    real PPOWER;
    NORDERPOL(N,N,Q,A);
    PPOWER:=P;
    for K:=1 step 1 until N do 
    begin 
        A[K]:=PPOWER*A[K];
        PPOWER:=P*PPOWER;
    end;
end LINTFMPOL;
        eop