Составьте для Чертежника метод рисования равнобедренного треугольника, если известны координаты концов

program zz1;
uses drawman; // вызываем Чертежника
begin
field(10,10); // задаем поле для рисования треугольника
ToPoint(4,1); // перебегаем в исходную точку
PenDown; // опускаем перо
ToPoint(4,6); // живописуем вышину треугольника
ToPoint(2,1); // рисуем одну сторону треугольника
ToPoint(6,1); // рисуем основание треугольника
ToPoint(4,6); // живописуем вторую сторону треугольника
PenUp; // поднимаем перо
end.