Программа

CONST QuantityElement=6;   { Количество элементов вектора }
TYPE VectorType=array [1..QuantityElement] of real; { Вектор-тип }
VAR Vector:VectorType; { Вектор }

PROCEDURE InputVector (var B:VectorType); { Процедура ввода вектора }
  Var i:word; { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл ввода элементов вектора }
      begin
        Write('Введите элемент [',i,'] ');
                                 { Вывод приглашения ввести элемент вектора }
        ReadLn(B[i])   { Ввод элемента вектора }
      end
  End;
PROCEDURE OutputVector (B:VectorType); { Процедура вывода вектора }
  Var i:word;   { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл вывода вектора }
      Write (B[i]:9,'  ');  { Вывод элемента вектора }
    WriteLn  { Вывод конца строки }
  End;
FUNCTION GetMax(a,b:real):real; { Функция определения максимального }
  Begin
    if a>b then GetMax:=a { Определение значения функции по максимальному }
           else GetMax:=b
  End;
PROCEDURE ProcessVector (B:VectorType); { Процедура просмотра вектора }
  Var i:word;   { Счетчик }
      Min,Max:real; { Максимальный и минимальный элементы вектора }
      Med:real; { Среднее значение }
  Begin
    { Начальное определение буферных переменных: }
    Min:=B[1];
    Max:=B[1];
    Med:=B[1];
    for i:=2 to QuantityElement do { Цикл просмотра вектора }
    begin
      Med:=Med+B[i]; { Набор суммы элементов массива }
      if B[i]<Min then Min:=B[i]   { Поиск Max и Min }
                  else if B[i]>Max then Max:=B[i]
    end;
    Med:=Med/QuantityElement;{ Пересчет суммы элементов в среднее арифметическое }
    { Вывод результатов: }
    WriteLn('Min=',Min,'  Max=',Max,' Среднее=',Med);
    Write('Максимальное отклонение от среднего ',GetMax(Max-Med,Med-Min));
  End;

BEGIN
  WriteLn; { Пропуск строки }
  InputVector(Vector); { Ввод вектора }
  WriteLn; { Пропуск строки }
  WriteLn(' Вектор: ');  { Вывод заголовка }
  OutputVector(Vector); { Вывод вектора }
  WriteLn; { Пропуск строки }
  ProcessVector(Vector) { Обработка вектора }
END.