1.19.4 Delphi

Program Lab1194;

Uses
    System.SysUtils;

Var
    I : Integer;
    NumSizeOfArray : Integer;
    Factorial : Integer;
    IsCorrect : Boolean;
    ArrayA : Array Of Integer;
    ArrayB : Array Of Integer;

Begin
    Writeln('Это программа получает набор чисел и выводит b(i) = a(i) + i!');

    Repeat
        Writeln('Введите размер массива от 2 до 10');
        IsCorrect := True;
        Try
            Readln(NumSizeOfArray);
        Except
            IsCorrect := False;
        End;
        If(Not IsCorrect) Or (NumSizeOfArray <= 2) Or (NumSizeOFArray <= 10) Then
        Begin
            IsCorrect := False;
            Writeln('Ошибка');
        End;
    Until IsCorrect;

    SetLength(ArrayA, NumSizeOfArray);
    SetLength(ArrayB, NumSizeOfArray);

    For I := 0 To High(ArrayA) Do
    Begin
        Repeat
        Writeln('Введите ', I + 1, ' элемент массива от -1000 до 1000');
        IsCorrect := True;
        Try
            Readln(ArrayA[I]);
        Except
            Writeln('Вводите, пожалйста, целые числа');
            IsCorrect := False;
        End;
    until IsCorrect;
    End;

    For I := 0 To High(ArrayA) Do
    Begin
        If(I <> 0) Then
        Begin
            Factorial := Factorial * I;
        End;
        ArrayB[I] := ArrayA[I] + Factorial;
    End;

    Writeln('Новый массив: ');
    For I := 0 To High(ArrayB) Do
    Begin
        Write(ArrayB[I], ' ');
    End;

    Readln;
End.