{Linerel.PAS}{ Пример программы для процедуры LineRel }Uses Graph;
Var Gd, Gm :Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm,'');
If GraphResult <> grOk Then Halt(1);
MoveTo(1, 2);
{ Рисуем линию в точку (101,102) }
LineRel(100, 100);
ReadLn;
CloseGraph;
End.