{* Миллионер *}

Unit M5;
Interface
Implementation
Begin
 writeln('Сколько лет нужно хранить N долларов в банке под Р% годовых,
чтобы стать миллионером?');
End.

Program M5;

Uses M5.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  crok : Word;
  i    : Real;
  god  : Real;
  sum  : Real;
  proz : Real;
Begin
  ClrScr; {* Очищаем экран *}
  Write('Кол - во зелени: ');
  ReadLn(sum);
  Write('Процент: ');
  ReadLn(proz);
  crok := 0;
  Repeat         i := (sum / 100) * proz;
    sum := sum + i;
  Inc(crok); {* crok++ *}
  Until sum > = 1000000;
  WriteLn('Срок: ', crok, ' лет');
  WriteLn; {* Пустая строка *}
  Write('Press Enter');
  ReadLn
End.