Нужно составить программу в pascal abc, которая будет рисовать 5 ёлок. копировать с сайтов нет смысла, так как везде неверно. главное условие, нужно сделать программу без ввода переменных. то есть использовать в ней переменные нельзя! кому не сложно, . буду признателен. (если не получится нарисовать именно 5 елок, то нарисуйте одну..главное, чтобы она была правильной)

Я, конечно, не художник, но надеюсь это похоже на ёлки.

uses GraphABC;
begin
  For var i := 0 to 4 do
  begin
    SetBrushColor(clGreen);
    FillPie(80 + 120 * i, 100, 25, -50, -130);
    FillPie(80 + 120 * i, 115, 40, -50, -130);
    FillPie(80 + 120 * i, 135, 60, -50, -130);
    FillPie(80 + 120 * i, 160, 75, -50, -130);
    SetBrushColor(clBrown);
    FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
  end;
end.