Даны действительные числа a,b,c. Проверить, выполняется ли следующее неравенство a>b>c.

Var
   max,     //максимальный элемент
   min,      //минимальный элемент
   sum,     //сумма всех чисел
   n,          //количество чисел
   j: integer;
Begin
   write('Введите количество чисел: ');
   readln(n);
   write('Введите числа: ');
   readln(j);
   max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно
   for var i:=2 to n do begin 
      readln(j); 
      if(j > max) then max:=j 
      else if(j < min) then min:=j; 
      sum:= sum+j;
   end;
   sum:= round(sum/n)*min-max;  //результирующая формула
   if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0
   else writeln('Результат: ', sum);
End.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

type
  tL=List<integer>;

function Avg(L:tL):=L.Average;

function Cont(L:tL; e:integer):=L.Contains(e);

function Occurs(L:tL; e:integer):=L.Where(t->t=e).Count;

begin
  var MyList:=Lst(3,8,12,5,16,9,5,-2,7,0,5,-1);
  MyList.Println;
  Writeln('Среднее равно ',Avg(MyList):0:3);
  var k:=ReadInteger('Введите элемент для поиска:');
  Writeln('Есть ли такой элемент в списке? ',Cont(MyList,k));
  Writeln('Количество таких элементов равно ',Occurs(MyList,k))
end.

Пример
3 8 12 5 16 9 5 -2 7 0 5 -1
Среднее равно 5.583
Введите элемент для поиска: 5
Есть ли такой элемент в списке? True
Количество таких элементов равно 3