Помогите составить программу этого примера на паскале

Ну так поучись на програмиста, сейчас средних програмистов не счесть, а надо блистать, ну и кому ты нужен .