Procedure Line ( x1, y1, x2, y2 : integer )

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

Program LineDemo;
Begin
Line( 0, 0, 90, 90 );
Pen( 2, 0, 0, 255 );
Line( 30, 30, 90, 30 );
Pen( 6, 255, 0, 0 );
Line( 10, 10, 10, 90 )
end.