Программа

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

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

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

PROCEDURE GetLast (B:VectorType; var Last:word);
  { Процедура поиска последнего нечетного числа }
  Var i:word;   { Счетчик }
  Begin
    Last:=0; { Начальное определение номера последнего нечетного }
    for i:=1 to QuantityElement do { Цикл просмотра вектора }
      if Odd(B[i]) then Last:=i; { Переопределение номера последнего нечетного }
  End;
VAR Last:word;
BEGIN
  WriteLn; { Пропуск строки }
  InputVector(Vector); { Ввод вектора }
  WriteLn; { Пропуск строки }
  WriteLn(' Вектор: ');  { Вывод заголовка }
  OutputVector(Vector); { Вывод вектора }
  WriteLn; { Пропуск строки }
  GetLast(Vector,Last);
  if Last>0
  then WriteLn('Номер последнего нечетного числа ',Last)
  else WriteLn('Нечетных чисел в последовательности нет');
         { Поиск и вывод последнего нечетного элемента вектора }
END.