program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
   System.SysUtils;
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);
   for i := 0 to arraySize - 1 do
     a[i] := i;
   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 := arraySize downto 1 do
   begin
      p := p + a[i] * x;
      a[i] := a[i] - 1;
      x := x * firstX;
   end;
   Writeln('Polynomial value = ', p);
   Readln
end.