program Project1;
Var
   x, p, firstX, arraySize, i: integer;
   a: array of integer;
   IsCorrect: boolean;

begin
   Writeln('This program calculates polynomial degree');
   IsCorrect := false;
   arraySize := 0;
   x := 0;
   repeat
      try
         Writeln('Please, enter integer number N( 0 < N < 1000)');
         Readln(arraySize);
      except
         Writeln('Warning! Enter correct number!');
      end;
      if (arraySize > 0) and (arraySize < 1000) then
         IsCorrect := true;
   until (IsCorrect);
   SetLength(a, arraySize);
   IsCorrect := false;
   repeat
      try
         Writeln('Please, enter integer number X( 0 < X < 1000)');
         Readln(x);
      except
         Writeln('Warning! Enter correct number!');
      end;
      if (x > 0) and (x < 1000) then
         IsCorrect := true;
   until (IsCorrect);
   firstX := x;
   p := 0;
   for i := 0 to arraySize - 1 do
   begin
      Writeln('Enter element of array');
      Readln(a[i]);
   end;
   for i := 0 to arraySize - 1 do
   begin
       p := p + a[i]*x;
       x := x * firstX;
   end;
   Writeln('Polynomial value = ', p);
   Readln
end.