program Project4;
{$APPTYPE CONSOLE}
uses
  System.SysUtils;
var
   K,N,Fact: integer;
   Arr,NewArr: array of double;
   IsCorrect: Boolean;
const
   Error: string = 'Ошибка ввода! Введите целое положительное число (от 1 до 49).';
   ErrorArr: string = 'Ошибка ввода! Введите любое число от -999 до 999.';
begin
   IsCorrect := False;
   Writeln ('Введите размер массива (число от 1 до 49):');
   repeat
      try
         Readln (N);
         if (N > 0) and (N < 50) then
            IsCorrect := True
         else
            Writeln (Error);
         except
            Writeln (Error);
      end;
   until IsCorrect;
   SetLength (Arr,N);
   SetLength (NewArr,N);
   K := 0;
   while K < N do
   begin
      Writeln ('Введите ', K + 1, '-й элемент массива (число от -999 до 999):');
      try
         Readln (Arr[K]);
         if (Arr[K] > -1000) and (Arr[K] < 1000) then
            Inc(K)
         else
            Writeln(ErrorArr);
      except
         Writeln(ErrorArr);
      end;
   end;
   Fact := 1;
   for K := 0 to N - 1 do
   begin
      Fact := Fact * (K + 1);
      NewArr[K] := Arr[K] + Fact;
      Writeln (K + 1, '-й элемент нового массива равен ', NewArr[K]:7:4);
   end;
   readln (N);
end.