program p181462;
var a:array [1..30] of integer;
      tmp,min:integer;
      i,k:byte;
begin
  randomize; //инициализация генератора случайных чисел
  for i:=1 to 30 do   {генерируем массив из случайных чисел}
   begin
     a[i]:=1+random(10);
   end;
  {поиск минимума среди произведений}
   k:=15;
   min:=a[1]*a[k];
   for i:=2 to 15 do
    begin
      inc(k);
      tmp:=a[i]*a[k];
      if tmp<min then   //сравниваем с минимумом
        min:=tmp;
    end;
   {выводим минимум на экран}
    write('минимум произведения елементов массива =',min);
 readln;
 readln;
end.

program p181462;
var a:array [1..30] of integer;
      tmp:array [1..15] of integer;;
      i,k,min:byte;
begin
  randomize; //инициализация генератора случайных чисел
  for i:=1 to 30 do   {генерируем массив из случайных чисел}
   begin
     a[i]:=1+random(10);
   end;
  {поиск минимума среди пар}
   k:=15;
   i:=1;
   while k<=30 do
      begin
        if a[i]<a[k] then
          begin
            tmp[i]:=a[i];
          end
        else
          begin
            tmp[i]:=a[k];
          end;
         inc(i);
         inc(k);
      end;
{после того как нашли минимумы пар => ищем минимум из отобранных минимумов пар}
  min:=tmp[1];  //пусть минимум 1 елемент
  for i:=2 to 15 do
    begin
      if min>tmp[i] then
       min:=tmp[i];
    end;
   {выводим минимум на экран}
    write('минимум произведения елементов массива =',min);
 readln;
 readln;
end.