треугольник в паскале

Ответ от Модни классни[гуру]
Три линии (Line), насчет модуля GraphABC конечно не уверен, но в стандартном Graph специальной процедуры нет. Пример реализации. Procedure Triangle(x1, y1, x2, y2, x3, y3 : Integer; Color : Byte); Begin {описание процедуры рисования треугольника цвета Color} SetColor(Color); Line(x1, y1, x2, y2); Line(x2, y2, x3, y3); Line(x3, y3, x1, y1) End; {of Triangle} {---------------------