Procedure LineTo ( x, y : integer )

де (x, y) - координати кінця лінії. Лінія починається від активної графічної позиції. Фактичними параметрами при звертанні до процедури ЛініяДо мають бути вирази цілого типу. Лінія буде проведена вибраним олівцем.
Після виконання процедури ЛініяДо активна графічна позиція встановлюється в точку з координатами (x, y).

Program LineToDemo;
Var
i: integer;
Begin
MoveTo( 0, 50 );
For i:=1 to 100 do
LineTo( i, round( 50-50*sin( i/10 ) ) );
end.