2. Измените программу из примера 3.19 так, чтобы выводилось произведение первых трех элементов.

Объявим переменную p, которая будет содержать результат произведения чисел. Затем в цикле перемножим первые три элемента при условии, что i <= 3.

var p: integer;
const a: array[1..7] of integer = 
      (1, 2, 3, 4, 5, 6, 7);
begin
  p := 1;
  for var i := 1 to 7 do
    if i <= 3 then
      p := p * a[i];
  write('Произведение первых трёх элементов: ', p);
end.