Uses GraphABC;
Var
y,n:integer;
Begin
Write('n = ');
ReadLn(n);
For y:= 0 to n-1 do
Line(100,300-y*(300 div (n-1)),300,y*(300 div (n-1)));
End.
1) Вычисляем длины всех его сторон
Основа гипертекста это перекрестные ссылки.
Как пример можно взять любой вики сайт, где каждая статья имеет ссылки на соотносящиеся к ней статьи и т.д.
Любой сайт или бумажная энциклопедия есть пример гипертекста