Question

помогите  пожалуйста  нарисовать треугольник  в Pascal ABC

Answer 1

$Uses GraphAbc; \ Var x1,x2,x3,y1,y2,y3:Integer; \ Begin \ x1:=100; y1:=100; \ x2:=300; y2:=50; \ x3:=250; y3:=200; \ Line(x1,y1,x2,y2); \ LineTo(x3,y3); \ LineTo(x1,y1); \ End.$