Срочно информатика

Через Uses GRAPHabc

uses graphabc;

var i: integer;

procedure Triangle(x1, y1, x2, y2, x3, y3: integer);

begin

 line(x1, y1, x2, y2);  

 line(x2, y2, x3, y3);  

 line(x3, y3, x1, y1)

end;

begin

 setwindowsize(600, 300);

 for i := 0 to 5 do

   Triangle(0 + i * 100, 200, 50 + i * 100, 100, 100 + i * 100, 200);

end.