Синоптики измеряют температуру воздуха ежедневно в течение 4 недель и записывают

Синоптики определяют температуру воздуха каждодневно в течение 4 недель и записывают результаты измерений в таблицу.

-12
-16
-26
-20
-16
-18
-25
-26
-29
-32
-23
-30
-21
-23
-15
-16
-20
-23
-35
-15
-16
-10
-38
-26
-27
-18
-6
-7
Отыскать количество дней, когда температура была выше средней
Отыскать самый теплый день.
Нужно написать программу в паскале abc
СРОЧНО ,ПОЖАЛУЙСТА !!!!11