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

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