ПАСКАЛЬ!
Банк выплачивает 15% годовых. Начальная сумма вклада 1000 рублей. Через сколько лет сумма вклада 10000 рублей?

//PascalABC.NET 3.4.2

begin

 write(seqwhile(1000.0, x -> x + (x / 100) * 15, x -> x < 10000).Count + 1);

end.