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.$