Две задачи по программированию на Pascal

Необходимо решение задач в прикрепленных файлах на языке Pascal. Желательно простыми, несложными методами, чтобы преподаватель поверил, что работу выполнял студент первого курса, а не специалист :)

Просьба в коде с помощью комментариев оставить заметки, разъясняющие работу программ