Составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 1 до 10 и выводит на экран последний элемент с нечётным значением и его индекс  

var   a: array[1..10] of integer;  //Массив а   i, index: integer;  //index - индекс последнего элемента с нечетным значением   begin   write('Исходный массив:  ');   for i:= 1 to 10 do  {Заполняем массив элементами в диапазоне [1..10], печатаем его и определяем индекс последнего элемента с нечетным значением}   begin     a[i]:= random(10) + 1;     write(a[i], '  ');     if a[i] mod 2 = 1 then index:= i;   end;   writeln;   writeln('Последний элемент с нечетным значением:  a[', index, '] = ', a[index]);   end.  Отметь решение как лучшее)