Помогите, нужно составить программу в PASCAL ABC, которая будет рисовать 5 ёлок. Копировать с сайтов нет смысла, так как везде неверно. Главное условие, нужно сделать программу без ввода переменных. То есть использовать в ней переменные нельзя! Кому не сложно, помогите. Буду признателен. (Если не получится нарисовать именно 5 елок, то нарисуйте одну..главное, чтобы она была правильной)

Одну елку я без переменных и нарисовал, можно было и пять таким же образом делать. Но один и тот же фрагмент 5 раз писать очень глупо, поэтому использовал цикл с переменный. Если автору нужно "без переменных", думаю, ему не составим труда скопировать тело цикла и подставить вместо i численные значения.

Не знаю, это ему судить. Не пометит решение нарушением - останется таким, пометит - значит, не судьба...

Даже если так, то решение не удалят, а отправят на исправление

Я именно это и имел в виду)))

Зачем же удалять работающую программу? Их не так тут много, чтобы разбрасываться)))

Я, конечно, не художник, но надеюсь это похоже на ёлки.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.