Процедура, строящая списковое представление графа! Опции

[ralf]

Такая интересная задачка:

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

Заранее благодарен!!!

[volvo]

Здесь неплохо было бы уточнить, как задается граф?

Кстати, вот тут есть очень большой набор процедур для работы с графами: Алгоритмы работы с графами

[ralf]

Вот мне это тоже интересно. В задании только это, да, кстати заданный граф - n-мерный куб