Ответ:

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.

Объяснение: