PROGRAM CPOLYNML(INPUT,OUTPUT);
  TYPE AA=ARRAY[0..10 ]OF INTEGER;
  VAR A:AA;
      N,I,X,P:INTEGER;

{$I B:POLYNML.SRC}

  BEGIN
    READLN(N);
    READLN(X);
    FOR I:=0 TO N DO  READ(A[I]);
    WRITELN;
    FOR I:=0 TO N DO WRITELN('A(',I:3,')=',A[I]:5);
    WRITELN('X=':2,X:5);
    POLYNML(N,X,A,P);
    WRITELN('P=':2,P:10)
  END.