В массиве S найдите произведение максимального и минимального элементов и их порядковые номера.
var
  i , min, max, i_min, i_max, a : longint;

begin
  min := maxlongint div 2;
  max := -min;
  for i := 1 to 7 do
  begin
    read(a);
    if (a < min) then
    begin
      min := a;
      i_min := i;
    end;
    if (a > max) then
    begin
      max := a;
      i_max := i;
    end;
  end;
  writeln(min * max);
  writeln(i_min);
  writeln(i_max);
end.