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

Ты серьезно думаешь, что кто-то сейчас сядет тебе это расписывать?
Это абсолютно примитивно, но нудно...