Программа

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

PROCEDURE InputVector (var A:VectorType); { Процедура ввода вектора }
  Var i:word; { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл ввода элементов вектора }
      begin
        Write('Введите элемент A[',i,'] ');
                                 { Вывод приглашения ввести элемент вектора }
        ReadLn(A[i]);   { Ввод элемента вектора }
      end
  End;

PROCEDURE OutputVector (A:VectorType); { Процедура вывода вектора }
  Var i:word;   { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл вывода вектора }
      Write (A[i],'  ');  { Вывод элемента вектора }
    WriteLn  { Вывод конца строки }
  End;

PROCEDURE ProcessVector (A:VectorType); { Процедура просмотра вектора }
  Var i:word;   { Счетчик }
      SumHi,SumLo:integer; { Суммы числителя и знаменателя }
  Begin
    SumHi:=0; { Обнуление числителя }
    SumLo:=0; { Обнуление знаменателя }
    for i:=1 to QuantityElement do { Цикл просмотра вектора }
      if Odd(i) then SumHi:=SumHi+A[i] { Набор числителя }
                else SumLo:=SumLo+A[i]; { Набор знаменателя }
    WriteLn('A=',SumHi/SumLo) { Вычисление и вывод дроби }
  End;

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