Помогите пожалуйста решить 2 задачки на языке Pascal !!!

ПОМОГИТЕ ПРОШУ ВАС РЕШИТЬ 2 ЗАДАЧИ НА МАССИВЫ ПО ИКТ НА ЯЗЫКЕ ПАСКАЛЯ! ОЧЕНЬ НУЖНО! ЗАВТРА УЖЕ ОЦЕНКИ СТАВИТЬ БУДУТ! ПОМОГИТЕ! ПОЖАЛУЙСТА!