Элементы с четными индексами разделить на второй, а с нечетными – умножить на первый элемент.(паскаль)
заранее благодарю

что подразумевается под соnst handsgree?

спасибо за помощь

const    handsfree = false;var    a: array[1..100] of real;    i, n: integer;begin    {ввод массива}    if handsfree then        n := random(20) + 5    else begin        write('n = ');        readln(n);    end;        writeln('Данные массива:');    for i := 1 to n do    begin        if handsfree then begin            a[i] := random(100) - 50;            write(a[i], ' ');        end        else readln(a[i]);    end;    writeln();        {изменение элементов}    for i := 1 to n do    begin        if i mod 2 = 0 then            a[i] := a[i] / a[2]        else a[i] := a[i] * a[1];                write(a[i], ' ');    end;end.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  var f:=a[0];  var s:=a[1];  a:=a.Select((x,i)->i.IsEven?x*f:(x div s)).ToArray; a.Printlnend.Тестовое решениеn= 15-84 26 -10 -9 -55 57 9 -11 59 64 -78 16 22 -62 307056 1 840 0 4620 2 -756 0 -4956 2 6552 0 -1848 -2 -2520