uses crt, graph;
var
gd,gm:integer;
a1,a2,a3,b1,b2,b3,c,max,min:integer;

begin
clrscr;
gd:=detect;
initgraph(gd,gm,'f:\olimp\bp\bgi');
delay(3000);
randomize;
a1:=random(640);
b1:=random(480);
a2:=random(640);
b2:=random(480);
a3:=random(640);
b3:=random(480);
PutPixel(a1,b1,4);
PutPixel(a2,b2,4);
PutPixel(a3,b3,4);
SetLineStyle(1,0,4);
Line(a1,b1,a2,b2);
Line(a1,b1,a3,b3);
Line(a3,b3,a2,b2);
readkey;
closegraph;
end.