ПРИВЕТ, ДРУЗЬЯ!)

КТО НИБУДЬ может помочь с решением курсовой??????????

(всего две задачи, думаю у вас они не вызовут затруднений, 1 курс)

[PASCAL]