Минимальное попарное произведение двух ближайших элементов массива - Pascal ABC

Формулировка задачи:

//Дан целочисленный массив из 30 элементов. 
//Элементы массива могут принимать значения от 0 до 10. 
//Опишите алгоритм, который находит и выводит минимальное попарное произведение 
//двух ближайших элементов массива.

Если последовательно я могу додуматься, как их перемножить, то как попарно - нет. Поможете? Хотя, если можно, еще и алгоритм к нахождению между ними минимального числа.

Изменять буквы и добавлять переменные и константы нельзя, не использовать - можно.

const 
        N=30;
var   
         a: array [1 .. N] of integer;
         i, j, min: integer;
begin 
         for i:=1 to N do readln (a[i]);
         //ЗДЕСЬ ДОЛЖЕН БЫТЬ КОД
 
end.

Решение задачи: «Минимальное попарное произведение двух ближайших элементов массива»

Листинг программы

const
  N = 5;
 
var
  a: array [1..N] of integer;
  i, min: integer;
 
begin
  for i := 1 to N do //ввод чисел в массив
  begin
    repeat
      write('a[', i, '] = ');
      readln(a[i]);
      if (a[i] < 0) or (a[i] > 10) then writeln('Value out of range 1..10, reenter.')
    until (a[i] >= 0) and (a[i] <= 10);
  end;
  min := a[1] * a[2]; //<---
  for i := 2 to N - 1 do if min > a[i] * a[i + 1] then min := a[i] * a[i + 1];//<---
  writeln('Min product of adjacent pairs = ', min);
  readln
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

N - количество элементов в массиве (равное 5 в данном случае);
a - массив из N элементов, тип данных - целое число;
i - индекс текущего элемента массива;
min - минимальное значение произведения двух соседних элементов массива;
a[i] - значение i-го элемента массива. Код начинается с инициализации переменной min произведением первых двух элементов массива (a[1] * a[2]). Затем происходит цикл, в котором проверяется каждый элемент массива от i=2 до N-1. Если произведение текущего и следующего элементов меньше значения min, то min обновляется. В конце выводится сообщение с минимальным значением произведения соседних элементов массива.