lab1_4

program really_Delete;
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
        repeat
            Iscorrect := True;
            writeln('Введите элемент массива под номером',' ', I+1);
            try
                readln(a[I]);
            except
                Writeln('Введите целое число');
                isCorrect := false;
            end;
        until (IsCorrect);
        Comp := 1;
        for I := 0 to N do
        begin
            if odd(a[i]) then
            Comp := Comp * a[i];
        end;
        write('Произведение элементов массива , стоящих на нечётных местах равно', ' ' , Comp);
        readln;
    End.