program mass;

var
  i, j, k, n, d: integer;
  x: real;
  a, s: array [1..10] of real;

begin
  writeln('Программа выводит элементы массива, расположенные между предпоследним и последним отрицательными числами');
  writeln('Введите количество элементов массива');
  read(n);
  k := 0;
  j := 0;  
  writeln('Введите элементы массива');
  for i := 1 to n do  {Ввод массива}
	read(s[i]);
  
  while k <> 2 do {Нахождение двух отрицательных чисел}
  begin
	for i := 1 to n do {Проверяем массив}
	begin
	  if s[i] < 0 {Если элемент массива отрицателен}
	  then
	  begin
		a[i] := s[i]; {присваиваем отрицательные числа массива s массива a}
		k := k + 1; {счётчит отрицательных элементов массива}
	  end;
	end;
  end;
  



  for i := 1 to n - 1 do {упорядочивание массива по убыванию}
	for j := i + 1 to n do
	  if s[i] < s[j] then
	  begin
		x := s[i];
		s[i] := s[j];
		s[j] := x;
	  end;
  
  for i := 1 to n do
	write(s[i], ' ');  {Вывод массива}
  writeln;
end.

const
   n = 10;
var
   mas : array [1..n] of integer;
   a : array [1..2] of byte;
   i, k : byte;
   s : integer;
begin
        writeln('Vvedite massiv');
        for i := 1 to n do read (mas[i]);
        a[1] := n;
        a[2] := n;
        k := 2;
        i := n;
        s := 0;
        while (i > 0) and (k > 0) do begin
                if mas[i] < 0 then begin
                        a[k] := i;
                        dec(k);
                end;
                dec(i);
        end;
        for i := a[1] + 1 to a[2] - 1 do s := s + mas[i];
        writeln(s);
end.