как записать в турбо паскале вот такой пример

Ну взять и написать. Что сложного? Или вы так намекаете, что надо сесть и написать весь код за вас?