Алгоритм составления метафоры: берется объект 1 (радуга).про него и будет составлена метафора.у него выявляется специфическое свойство (разноцветная).выбирается объект 2 с таким же свойством (цветочная поляна).определяется место расположения объекта 1 (небо после дождя).для метафорической фразы необходимо взять объект 2 и указать место расположения объекта 1 (цветочная поляна - небо после дождя).составить предложение с этими словами (цветочная небесная поляна ярко засияла после дождя). составить со словом "трава". пример и алгоритм указан наверху ​

вялікія прыгожыя вочы; у водсвеце вячэрняй зары зусім пунсовым зрабіўся яе твар. Некалі на спатканнях яна часта рабіла так: сярод сур'ёзнай размовы аб самых высокіх матэрыях раптам падскаквала, зрывала каштан, ці галінку ліпы, ці проста ліст, клала яго на руку і «страляла». Або, калі яны часам выходзілі ўвечары за горад, раптам прапаноўвала: «Давай навыперадкі!» яна прызналася, што саромелася свайго беднага ўбрання: яна была з беднай сям'і, расла без маці. Саша стала нейкая больш стрыманая, паважная.

Function TextProgressBar(progint:integer):string;

begin

   if progint >= 0 then

       Result := '<$1>                     '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 10 then

       Result := '<$1><$0>                 '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 20 then

       Result := '<$1><$0><$0>             '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 30 then

       Result := '<$1><$0><$0><$0>         '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 40 then

       Result := '<$1><$0><$0><$0><$0>     '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 50 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3>                    <$2>';

   if progint >= 60 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0>                <$2>';

   if progint >= 70 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0>            <$2>';

   if progint >= 80 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0>        <$2>';

   if progint >= 90 then

       Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0><$0>    <$2>';

   if progint >= 100 then

       Result := '<$1><$0><$0><$0><$0><$0>'+IntToStr(progint)+' <$3><$0><$0><$0><$0><$0><$2>';

end;

Пробуй