найти произведения первых трёх и последних трёх элементов массива А(10)

спасибо

смотря с чего начинается с 0 или 1 массив , я просто решил написать пример программы , тут сам вводишь 10 чиселvar i , k, n:integer; a: array [1..10] of integer;begin for i:=1 to 10 do  readln(a[i]);k:=a[1]*a[2]*a[3]; n:=a[10]*a[9]*a[8];writeln('произведение первых трех чисел= ',k);writeln('произведение последних трёх чисел= ', n);end.