Буратино сел в автобус. в автобусе, кроме него, было ещё 17 пассажиров. на первой остановке в автобус вошло 6 зайцев, а вышло 2. на второй остановке вошло ещё 10 лисиц и белок, но никто не вышел. на следующей остановке вошло 3 медведя, а вышло 8. потом на остановке вышло ещё 4 зайца, а зашло 7. а потом на остановке вполз 1 ёж. сколько было остановок? ответ запишите при цифр без пробелов и знаков препинания.

Было всего 5 остановок, в итоге кроме буратины было 30 пассажиров, если считать буратину, то тогда 31 пассажир. 

Uses       system.collections.generic,       system; var       simple: list< integer> : = new list< integer> ;       i, n, p: integer;       m: longint; begin       read(n);       for i : = 2 to n do       begin               m : = 1;               foreach s: integer in simple do                       m : = m * i mod s;               if m > 0 then begin                       simple.add(i); //                      write(i, ' ');               end;       end;       writeln();             foreach s: integer in simple do       begin               if math.pow(2, s) - 1 < = longint.maxvalue then begin                       m : = round(math.pow(2, s) - 1);                       if (m < = n) and simple.contains(m) then                               write(m, ' ');               end;       end; end.

Var n, k, a, i: integer; begin write('введите кол-во чисел:   '); readln(n); for i: =1 to n do   begin   read(a);   if ((a mod 2) = 1) then inc(k); end; write(k); end. с использованием оператора repeat: var n, k, a, i: integer; begin write('введите кол-во чисел: '); readln(n); repeat   read(a);   if ((a mod 2) = 1) then inc(k);   inc(i);   until i=n; write(k); end.   n - кол-во чисел, k - кол-во нечётных чисел, a - число все числа вводятся через пробел