Графика: рисование елки - PascalABC.NET/GraphABC

Формулировка задачи:

Здравствуйте. читал много тем на форуме, однако не нашел).... собственно. не могу разобраться в координатах...(х1,у1,х2,у2) нам задали нарисовать елку ( как вы уже поняла на графическом модуле АБС)... вот..

uses GraphABC;
begin
line(300,450,600,450);
line(600,450,450,300);
line(300,450,450,300);
 
end.

первый треугольник получился. а как со вторым и третьим? каким образом найти координаты? я хз. пожалуйста объясните чайнику)

Решение задачи: «Графика: рисование елки»

Листинг программы

uses graphABC;
var a,x,y,h,i:integer;
begin
a:=40;
h:=40;
x:=windowwidth div 2;
y:=2*h;
for i:=1 to 3 do
 begin
  line(x,y,x-a,y+h);
  line(x,y,x+a,y+h);
  line(x-a,y+h,x+a,y+h);
  floodfill(x,y+5,clGreen);
  a:=a+40;
  y:=y+h;
  h:=h+20;
 end;
setbrushcolor(clBrown);
rectangle(x-5,y,x+5,y+20);
end.

Объяснение кода листинга программы

Объявлены переменные: a, x, y, h, i (строки 1-5)
Задаются начальные значения переменных: a=40, h=40, x=windowwidth/2, y=2*h (строки 6-9)
Запускается цикл for от i=1 до 3 (строка 10)
Внутри цикла выполняются действия:
- Рисуются линии (строки 11-13)
- Заполняется область цветом (строка 14)
- Увеличиваются значения a, y, h (строки 15-17)
Задается цвет кисти (строка 18)
Рисуется прямоугольник (строка 19)
Конец программы (строка 20)