Написать программу, которая вычерчивает треугольник
| Константа | Значение | Описание |
| NormWidth | 1 | Нормальная толщина (1 пиксель) |
| ThickWidth | 3 | Жирная линия (3 пикселя) |
Program treug;
uses graph; { подключение библиотеки графических процедур}
var gd,gm: integer; {описание переменных, определяющих графический драйвер и монитор}
begin
gd:=detect; {определение значений переменных по выбору ПК}
initgraph(gd, gm, ‘ c/bp’); {инициализация графического режима}
SetColor(4); {задание цвета линии}
SetLineStyle(1,0,3); {задание стиля линии}
Line(320, 240, 320, 180);
Line(320, 240, 390, 240);
Line(390, 240, 320, 180);
end.
