Как правильно записать в турбо паскале этот пример?

Тут не пример надо записывать, а программу делать по ПОЛНОМУ условию задачи, которую ты почему-то скрываешь