PROCEDURE POLYNML(N,X:INTEGER;A:AA;VAR P:INTEGER);
    VAR I,XPOWER:INTEGER;
      BEGIN P:=A[0 ]+A[1 ]*X;XPOWER:=X;
          I:=1;
          REPEAT I:=I+1;
                 XPOWER:=XPOWER*X;
                 P:=P+A[I]*XPOWER;
          UNTIL I=N
    END;