В каком периоде, какой эры появились приматы?

В кайнозойскую эру, третичный период

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

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;

Пробуй