program;
const
    minSize = 2;
    maxSize = 100;
    minEl = -100;
    maxEl = 100;
var
    i, size, closeind, sum: integer;
    close, average: real;
    isCorrect: boolean;
    mass: array of integer;

begin
    Writeln('Данная программа находит индекс элемента в последовательности, который отличается от среднего арифметического значения элементов последовательности на минимальную величину.');
    isCorrect := false;
    repeat
        Writeln('Введите размер последовательности от ', min, ' до ', max,':');
        try
            Readln(size);
            if (size > minSize) and (size < maxsize) then
                isCorrect := true
            else
                Writeln('Ошибка ввода. Повторите попытку.');
        except
            Writeln('Ошибка ввода. Повторите попытку.');
    until isCorrect;
    SetLength(mass, size);
    for i := 0 to size - 1 do
    begin
        repeat
            Writeln('Введите целые числа от ', minEl ,' до ', maxEl,' через пробел и нажмите <Enter>: ');
            try
                for i := 0 to size - 1 do
                begin
                    readln(mass[i]);
                    if (mass[i] > minEl) and (mass[i] < maxEl) then
                        isCorrect := true
                    else
                        Writeln('Ошибка ввода. Повторите попытку.');
            except
                Writeln('Ошибка ввода. Повторите попытку.');
        until isCorrect;
    end;
    sum := 0;
    for i := 0 to size - 1 do
    begin
        sum := sum + mass[i];
        i := i + 1;
    end;
    average := sum / size;
    for i := to size - 1 do
    begin
        if abs(mass[i] - average) < close then
        begin
            close := abs(mass[i] - average);
            closeind := i;
        end;
    end;
    Writeln('Индекс элемента: ', closeind);
    end.