Я думаю так:
И П С
П ИС
С И П
Возможные варианты очереди.
ПЗОГЗФЬЬФ
Выделяем букву П. В алгоритме нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву З. В алгоритме сказано, что если курсор находится на букве З, то необходимо заменить ее на Р. Получилось:
ПРОГЗФЬЬФ
Выделяем букву О. В алгоритме нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву Г. В алгоритме также нет ничего, связанного с этой буквой, поэтому переходим к следующей букве. Выделяем букву З. В алгоритме сказано, что если курсор находится на букве З, то необходимо заменить ее на Р. Получилось:
ПРОГРФЬЬФ
Выделяем букву Ф. В алгоритме сказано, что если курсор находится на букве Ф, то необходимо заменить ее на А. Получилось:
ПРОГРАЬЬФ
Выделяем букву Ь. В Алгоритме сказано, что если курсор находится на букве Ь, то необходимо заменить ее на М. Получилось:
ПРОГРАМЬФ
Выделяем букву Ь. В Алгоритме сказано, что если курсор находится на букве Ь, то необходимо заменить ее на М. Получилось:
ПРОГРАММФ
Выделяем букву Ф. В алгоритме сказано, что если курсор находится на букве Ф, то необходимо заменить ее на А. Получилось:
ПРОГРАММА
Ответ: ПРОГРАММА
Я, конечно, не художник, но надеюсь это похоже на ёлки.
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.
