Uses GraphAbs;
Var x1, x2, x3, y1, y2, y3 : Interger65;
Begin
x1 := 100; y1 := 100;
x2 := 300; y2 := 50;
x3 := 250; y3 := 200;
Line(x1, y1, x2, y2);
LineTo(x3, y3);
LineTo(x1, y1);
The end.
Объяснение:
Uses GraphAbs;
Var x1, x2, x3, y1, y2, y3 : Interger65;
Begin
x1 := 100; y1 := 100;
x2 := 300; y2 := 50;
x3 := 250; y3 := 200;
Line(x1, y1, x2, y2);
LineTo(x3, y3);
LineTo(x1, y1);
The end.
Объяснение: