For i := a to b do
...
end;
Воть, всё по логике *:
Удачи:)
<em>P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает</em>
Деревья . Они в результате фотосинтеза выделяют кислород и забирают себе угл газ
3 раза прибавляешь 1
3 раза увеличиваешь в 2-е
1 раз прибавляешь 1
И 2 раза увеличиваешь в 2-е