{* Задача 8 *}

Unit Z_BUSINESSMAN;
Interface
Implementation
Begin
 writeln('Известно: Стартовый капитал предпринимателя, величина ежемесячного дохода в процентах, цена магазина. Вычислить через сколько лет предприниматель накопит сумму достаточную для покупки магазина');
End.

Program z_businessman;

Uses z_businessman.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  Capital : real;
  Percent : real;
  Cos     : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите начальный капитал бизнессмена');
  readln(Capital);
  writeln('Введите процент ежемесячного увеличения капитала');
  readln(Percent);
  writeln('Введите стоимость магазина');
  readln(Cost);
  writeln('Сумма будет накоплена через ',((ln(Cost / Capital) / ln(1 +  Percent / 100)) / 12) : 0 : 2, ' лет');
  readln; {* Ждем нажатия Enter *}
End.