отыскать произведения первых трёх и заключительных трёх элементов массива А(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('творенье первых 3-х чисел= ',k);
writeln('творение заключительных трёх чисел= ', n);
end.