Вам хочется увидеть что-то более весёлое? Это возможно — давайте воспользуемся теми шестнадцатью цветами, которые нам предлагает выбранный режим:

Процедура setCoIor(n) устанавливает текущим цвет с номером n. Ей мы сейчас и воспользуемся.
• Установите для рисования треугольника тёмно-красный цвет (в Pascal он имеет номер 4):

• Запустите программу — у вас получилось так?
Обратите внимание!Цвет рисования устанавливается процедурой setColor(n) ПЕРЕД тем, как будет рисоваться линия.
И действительно, вы ведь перед тем, как нарисовать красную линию, берёте в руки красный карандаш! Аналогично этому происходит рисование и в Pascal:

Как говорится — никакой разницы!