Задан массив А из N элементов (10  N  20). Определить следующие произведения: A[1]*A[2]*A[4], A[5]*A[6]*A[8]

program Project1;
var
  a: array[1..20] of integer; // Переменная для хранения значения массива.
  n: integer; //  Переменная для хранения значения количества элементов массива.
  i: integer;  // Вспомогательная переменная для организации цикла.
begin
  Writeln('Введите значение количества элементов массива:');
  Readln(n);
  for i:= 1 to n do
   begin
     write('Элемент ',i,' : ');
     Readln(a[i]);      //  Ввод значения элементов.
   end;
  writeln('Исходный массив:');
   for i:= 1 to n do
   begin
     write(a[i]:4);     // Вывод элементов на экран.
     if i mod 10 = 0 then
       writeln;
   end;
   writeln('Произведение A[1]*A[2]*A[4]: ',a[1]*a[2]*a[4]);
   writeln('Произведение A[5]*A[6]*A[8]: ',a[5]*a[6]*a[8]);
  readln;
end.