помогите, написать программу на паскале поиск графа в глубину, с добавлением ребра к нему же!!!!(к графу!

http://rain.ifmo.ru/cat/view.php/vis/graph...-2005/algorithm

графы

блин,народ мне через 3 дня курсовик сдавать,а я не знаю.........помогите!!!
тема-Разработка программы для генерации случайной последовательности чисел.в паскале соответственно...
но самый облом это то,что мне надо сделать как угодно только не через рандом!!я не понимаю как..
вообщем вот короче основа проги:
var x,i:integer;
a:real;
begin
writeln('vvedite chislo',x);
read(x);
for i:=1 to x do
begin
a:=sqr(i)+30+i/700;
writeln(a:6:2);
end;
readkey;
end.
вот!!но вместо a:=sqr(i)+30+i/700; должна быть формула ...ну типа специальная какая то...
что это за формула??