У меня получается так
7 лисят, 2 волчат и 5 медвежат
https://bibliofond.ru/view.aspx?id=657117
Учитель
строитель
банкир
директор
учёный
президент
Const month:array[0..11] of string [15]=
('январь', 'февраль', 'март', 'апрель', 'май', 'июнь',
'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
var s:real; i,k:integer;
begin
s:=1000; k:=0;
while s<=1200 do
begin
s:=s*1.01;
k:=k+1;
end;
writeln('k = ',k,' - ',month[k mod 12+2]);
end.
Результат:
<span>k = 19 - октябрь</span>