lab1_4

program lab1_4;
Uses
    System.SysUtils;
Var
    N, I, Comp : Integer;
    A : array of Integer;
    IsCorrect: Boolean;
    Begin;
    Writeln('Данная программа позволяет найти произведение элементов массива , стоящих на нечётных местах');
    Repeat
        IsCorrect := True;
        Write('Введите длину массива: ');
        Try
            Readln(N);
        Except
            Writeln('Введите целое число!');
            IsCorrect := False;
        End;
        If (N < 1) and IsCorrect then
        Begin
            Writeln('Введите неотрицательное число');
            IsCorrect := False;
        End;
    Until (IsCorrect);
    SetLength(A, N);
    Dec(N);
    For I := 0 to N do
    Begin
        Repeat
            Iscorrect := True;
            Writeln('Введите элемент массива под номером', ' ' , I + 1);
            try
                Readln(a[I]);
            except
                Writeln('Введите целое число');
                IsCorrect := False;
            end;
        Until (IsCorrect);
    End;
    Comp := 1;
    For I := 0 to N do
    Begin
        If (I mod 2 = 0) then
        Comp := Comp * a[i];
    End;
    Write('Произведение элементов массива , стоящих на нечётных местах равно', ' ' , Comp);
    Readln;
End.