помогите написать код программы (Pascal) (6 задание) - Компьютерные вопросы

Вопрос помогите написать код программы (Pascal) (6 задание)

Сверху Снизу