Программирование разветвляющихся алгоритмов. Условный оператор

Домашнее задание:

На языке программирования Pascal напишите программы решения заданий:

https://drive.google.com/file/d/0Bw_f54pvrxEtRFFyeW5TNWt1dnc/edit?usp=sharing
https://drive.google.com/file/d/0B8MkXVdvfYcrWmZ2ZzFqZmo2WDg/view