Помогите решить задачу на Pascal

Сверху