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

{$I B:HORNERS.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]:10);
    WRITELN('X=',X:5);
    HORNERS(N,X,A,P);
    WRITELN('P=',P:10)
  END.