Помогите пожалуйста с лабараторной работой, язык - PASCAL

Вот первый пример:



Вот второй пример (там в знаменателе модуль)



Заранеие спасибо, завтра уже нужно сдавать, выручайте