Вывести в определенной последовательности элементы массива (Pascal)

[Dian]

Вывести последовательность f1, f9, f2, f10, ... , f8, f16 и вычислить произведение пар элементов массива F .

[WorldMaster]

Смотри сюда

[three_cats]

uses crt;
var
i:integer;
p:real;
a:array[1..16] of integer;
begin
cls;
randomize;
for i:=1 to 16 do begin
a[i]:=random(100);
end;

for i:=1 to 8 do begin
write('a[',i,']=',a[i],' '); write('a[',i+8,']=',a[i+8],' ');
writeln;
end;

writeln;
p:=1;
for i:=1 to 8 do
begin
p:=a[i]*a[i+8];
writeln('p[',i,']=',p);
end;


end.

[Dian]

Спасибо большое!