var min, max, d, t, a : integer;
// min - минимальное число
// max - максимальное число
// d - кол-во чисел
// t - среднее арифметическое, умноженное на -1,
//     а после ещё и преобразованное в ответ по формуле.
//     (соответственно строки 18, 20, 21)
// a - числа, вводимые пользователем
begin
  Write('Кол-во чисел: ');
  Readln(d);
  min:=32767;
  max:=-32768;
  for var i:=1 to d do
  begin
  Write(i,') число: ');
	Readln(a);
    if a>max then max:=a;
    if a<min then min:=a;
    t:=t+a;
  end;
  t:=Round(t/d);
  t:=abs(t*min-max);   // abs - модуль (типо умножение на 1)
  Writeln('Ответ = ',t);
end.