Помогите создать код в паскале для задач. Заранее огромнейшее вам спасибо, вы мне очень сильно поможете, сами знаете сессия на носу а мне практические сдать надо на зачет, помогите, еще раз спасибо

1)Найти среднее арифметическое всех целых чисел от 100 до b( значение b вводится с клавиатуры; b≥100).

2)Имеется N количество шариков. Для каждого шарика известен цвет. Определить количество шариков красного и зеленого цвета.