Помогите решить задачу по информатике на языке PascalABC!!!

Var n, m : integer; begin n := 1000; m = 0; until n < 10000 do begin inc(m); n := n + n * 0.03; end; end.

Языка я не знаю, но формула простая: N = N0 * (1+x/100)^n Здесь N0 - это начальный вклад, N0 = 1000 N - это конечный вклад, N = 10000 х - это проценты, х = 3, х/100 = 0,03 n - это количество выплат, которое надо найти. Отсюда (1+0,03)^n = N / N0 = 10000 / 1000 = 10 n = log (N/N0) по осн. (1+x/100) = ln(N/N0) / ln(1+x/100) = ln(10) / ln(1,03) Где ln - это натуральный логарифм, стандартная функция в любом языке. Так что вычисляешь n = ln(10) / ln(1,03) и получаешь ответ. Или в общем виде - вводишь все данные и вычисляешь n = ln(N/N0) / ln(1+x/100)