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

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.2016 begin   var a: =arrrandom(readinteger('n=',99); a.println;   var f: =a[0];   var s: =a[1];   a: =a.select((x,i)-> i.iseven? x*f: (x div ; a.println end. тестовое решение n= 15 -84 26 -10 -9 -55 57 9 -11 59 64 -78 16 22 -62 30 7056 1 840 0 4620 2 -756 0 -4956 2 6552 0 -1848 -2 -2520

d) значение переменной