const
  n = 10;

var
  arr: array [1..n] of integer;
  first, last: integer;

begin
  writeln('Исходный массив:');
  for var i := 1 to n do
  begin
    arr[i] := random(1001) - 500;
    write(arr[i]:5);
  end;
  writeln;

  first := 0;
  for var i := 1 to n do
    if (arr[1] < arr[i]) and (arr[i] < arr[n]) then
    begin
      first := i;
      break;
    end;

  last := 0;
  for var i := n downto 1 do
    if (arr[1] < arr[i]) and (arr[i] < arr[n]) then
    begin
      last := i;
      break;
    end;

  if (first = 0) and (last = 0) then writeln('Элементов удовлетворяющих двойному неравенству в массиве нет')
  else if first = 0 then writeln('Первый и последний элемент удовлетворяющий двойному неравенству имеет индекс: ', last)
  else if last = 0 then writeln('Первый и последний элемент удовлетворяющий двойному неравенству имеет индекс: ', first)
  else if first = last then writeln('Первый и последний элемент удовлетворяющий двойному неравенству имеет индекс: ', first)
  else
  begin
    writeln('Первый элемент удовлетворяющий двойному неравенству имеет индекс: ', first);
    writeln('Последний элемент удовлетворяющий двойному неравенству имеет индекс: ', last);
  end;
end.