написати програму до задачі. Першу дистанцію велосипедист їхав зі швидкістю V км/год.наступні дві- зв швидкістю В км/год.,а три останні зі швидкістю К км/год. Знайти середню швидкість руху велосипедиста. Визначте яку дистанцію проїхав велосипедист. Інформатика 7 клас

4321103÷2=2160552,остаток 1; 2160552÷2=1080276,остаток 0; 1080276÷2=540138, остаток 0; 540138÷2=270069, остаток 0; 270069÷2=135034, остаток 1; 135034÷2=67517, остаток 0; 67517÷2=33758, остаток 1; 33758÷2=16878, остаток 0; 16878÷2=8439,остаток 0; 8439÷2=4219,остаток 1; 4219÷2=2109,остаток1; 2109÷2=1054, остаток 1; 1054÷2=527,остаток 0; 527÷÷2=263,остаток 1; 263÷2=131,остаток1; 131÷2=65, остаток 1; 65÷2=32, остаток 1; 32÷2=16,остаток 0; 16÷2=8,остаток 0; 8÷2=4, остаток 0; 4÷2=2, остаток 0; 2÷2=1, остаток 0; 1÷2=0, остаток 1.
(4321103)=(10000011110111001010001)

Const
  n=6; //размерность массива

Var
 ar:array[1..n] of integer;
 i,min,b:integer;
begin
 min:=2147483647; //верхняя граница типа integer
 b:=0; //проверка на наличие минимума - ложь
 for i:=1 to n do
  begin
   readln(ar[i]);
   if (i mod 2=0) and (ar[i]>0) and (ar[i]<min) then {если индекс чётный, элемент положительный и меньше минимума}
    begin
     min:=ar[i]; //заменяем минимум элементом
     b:=1; //проверка на наличие минимума - правда
    end;
  end;
 if b=0 then writeln('Нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум}
end.