Написать на языке Паскаль процедуру, строящую списковое представление заданного графа G. Количество вершин p графа является параметром процедуры, передаваемым в нее по значению. Процедура должна возвращать ссылку на созданный граф.
заголовок процедуры:
procedure P (p:integer; var graph: refnode);
Заданный граф G=Q(у Q - показатель n)=P(у P - показатель 2, степень n)