{ Сколько лет нужно хранить N долларов в банке под Р% годовых,
чтобы стать миллионером?
╔════════════════════╤══════════╤══════════╤════════╤════════╗
║ │ 1 │ 2 │ 3 │ 4 ║
╠════════════════════╪══════════╪══════════╪════════╪════════╣
║ Начальная сумма $ │ 10 │ 100 │ 1000 │ 20 000 ║
╟────────────────────┼──────────┼──────────┼────────┼────────╢
║ Годовой процент │ 5 │ 7 │ 10 │ 15 ║
╟────────────────────┼──────────┼──────────┼────────┼────────╢
║ Срок хранения │ 237 │ 138 │ 74 │ 29 ║
╚════════════════════╧══════════╧══════════╩════════╧════════╝
}
program 5;
uses crt;
var
crok : Word;
i, god, sum, proz : Real;
begin
ClrScr;
Write('Кол-во зелени: ');
ReadLn(sum);
Write('Процент: ');
ReadLn(proz);
crok := 0;
repeat
i := (sum / 100) * proz;
sum := sum + i;
Inc(crok);
until sum >= 1000000;
WriteLn('Срок: ', crok, ' лет');
WriteLn;
Write('Press Enter');
ReadLn
end.