Помогите пожалуйста,написать программу в паскале!!1 Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Последовательность Хейеса. Д

Помогите пожалуйста,написать программу в паскале!!1 Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Последовательность Хейеса. Д ано натуральное число n (n > 1). Если оно чётно, то его делят на 2, иначе умножают на 3 и прибавляют 1. Если полученное число не равно 1, то действия повторяются до тех пор, пока не получится 1. Вершиной называют наибольшее число в получающейся последовательности. Для заданного n построить указанную последовательность, указать её вершину и количество шагов