{* Задача 504 *}

Unit ZADACH504;
Interface
Implementation
Begin
 writeln('Дано натуральные число n, действительные числа а1,...,an. Найти длину наименьшего отрезка числовой оси, содержащего числа a1,...,an');
End.

Program zadach504;

Uses zadach504.pas; {* Эту строку можно удалить *}
{Дано натуральные число n, действительные числа а1,..., an.Найти длину  наименьшего отрезка числовой оси, содержащего числа a1,..., an}
Var {* Объявление переменных *}
  n   : byte; {Размер массива 0..n}
  a   : Array[0..255] Of real; {Последовательность}
  min : real;
  max : real; {Минимальный и максимальный элемент массива}
  i   : byte; {Счётчик цикла}
Begin
  write('Укажите размер массива 0..n: ');
  readln(n); {Вводим массив, определяя одновременно минимальный и максимальный элемент}
  For i := 0 To n Do {* Увеличиваем i от 0 до n с шагом 1 *}
  Begin
    write('Введите элемент a[', i, ']= ');
    readln(a[i]);
    If i = 0 Then
    Begin
      min := a[i];
      max := a[i]
    End;
    If a[i]max Then
      max := a[i]
  End;
  writeln('Наименьший отрезок числовой оси: ', max - min : 0:3)
End.