Init; {створити граф }

repeat {нескінченний цикл}

clrscr;

writeln('Number of vertexes = ', n);

writeln('press <Enter> to solve');

writeln('<Esc> - to exit');

key:=readkey;

case key of

#13 : DepthFirstSearch; {натиснуто клавішу Enter }

#27 : halt; {натиснуто клавішу Esc }

end;

until false;

end.