В листьях осины содержатся углеводы, органические кислоты, каротиноиды, витамин C, каротин, флавоноиды, фенолгликозиды, антоцианы и дубильные вещества.
В листьях дуба - дубильные вещества и красители, пентозаны.
В каштане содержатся дубильные вещества,немалое количество кверцитрина и изокверцитрина.
<span>В листья клена - дубильные вещества,есть каротин,алкалоиды,аскорбиновая кислота.</span>
До работы цикла переменной day присваиваем 1 (в конце он будет равен номеру дня- day := k, полученному врез. выполнения программы). Переменной m присваиваем значение 1-го дня=2. Затем начинаем сравнивать значения Dat[k] =< m , начиная с <span>k := 2 до 10,
Если условие верно, </span>m: присваиваем значение Dat[k], <span>day := k.
1 шаг Сравниваем </span>Dat[k] =< m (Dat[2]( а это 2)<span>=<2
Да, верно </span>m:=2, <span>day :=2.
2 шаг 3 </span>=< 2 Нет, оставляем m:=2, <span>day :=2
3 шаг 3 </span>=< 2 Нет, m:=2, <span>day :=2
4 шаг 2 </span>=< 2 , да, m:=2, <span>day :=5
5 шаг 2</span> =< 2 , да, m:=2, day :=6<span>
6 шаг 5 </span>=< 2 Нет, m:=2, <span>day :=6
7 шаг </span>5 =< 2 Нет, m:=2, day :=6<span>
8 шаг 6</span> =< 2 Нет, m:=2, day :=6
9 шаг 6 =< 2 Нет, m:=2, day :=6
На экране будет число 6 (<span>write(day))</span>
Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
................................