нуу как то так...

uses GraphABC;

var x1,x2,y1,y2: integer;

begin

setwindowsize(600, 400);

for var i:=1 to 20 do

begin

SetPenColor(clrandom);

Setbrushcolor(clrandom);

x1:=Random(128);

y1:=random(265);

x2:=random(449);

y2:=Random(365);

line(x1,y1,x2,y2);

end;

end.