program Project4;
{$APPTYPE CONSOLE}
{$R *.res}
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
               K := K + 1
            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.