Программа

USES v06_mod; { Подключение модуля }
PROCEDURE ReadVector(Head:string; var A:VectorType); { Процедура ввода вектора }
  Var i:Power;               { Счетчик цикла }
  Begin
    WriteLn(Head);                                  { Вывод приглашения }
    Write('Введите количество элементов массива '); { Вывод приглашения }
    ReadLn(A.N);                { Ввод количества элементов массива }
    for i:=1 to A.N do          { Цикл ввода элементов массива }
    begin
      Write('Введите элемент [',i,'] '); { Вывод приглашения }
      ReadLn(A.V[i])                     { Ввод элемента массива }
    end;
  End;
PROCEDURE WriteVector(Head:string; var A:VectorType); { Процедура вывода вектора }
  Var i:Power;       { Счетчик цикла }
  Begin
    WriteLn(Head);                       { Вывод заголовка }
    for i:=1 to A.N do                   { Цикл вывода элементов массива }
      Write(A.V[i]:5:2,'   ');             { Вывод элемента }
    WriteLn;                             { Ввод конца строки }
  End;
FUNCTION GetQuantityOfSmallElement(A:VectorType; N:Element):word;
  { Функция определения количества элементов вектора меньших заданного числа }
  Var i:Power;       { Счетчик цикла }
      Quant:word; { Количество элементов вектора меньших заданного значения }
  Begin
    Quant:=0; { Сброс значения }
    for i:=1 to A.N do   { Цикл набора количества }
      if A.V[i]<N            { Сравнение елемента с заданным числом }
      then Quant:=Quant+1;   { Набор количества }
    GetQuantityOfSmallElement:=Quant { Определение значения функции }
  End;
VAR A,X,Y:VectorType; { Исходная и создаваемые последовательности }
BEGIN
  WriteLn;                                    { Пропуск строки }
  ReadVector('ВВОД ПОСЛЕДОВАТЕЛЬНОСТИ',A);    { Ввод вектора }
  WriteLn;                                    { Пропуск строки }
  WriteVector('ПОСЛЕДОВАТЕЛЬНОСТЬ ЧИСЕЛ',A);  { Вывод вектора }
  WriteLn;                                    { Пропуск строки }
  WriteLn('Количество чисел, меньших среднего арифметического:  ',GetQuantityOfSmallElement(A,GetMiddle(A)))
                                              { Вычисление и вывод задания }
END.