Ответ:

program GraphDemo;

uses

Graph;

var

gd, gm: Integer;

begin

gd := Detect;

InitGraph(gd, gm, '');

{ задаємо колір ліній }

SetColor(Yellow);

{ малюємо точки }

MoveTo(100, 100);

LineTo(200, 50);

LineTo(50, 200);

LineTo(100, 100);

{ закриваємо графічне вікно }

CloseGraph;

end.