Запишите на языке Паскаль алгоритм решения задачи. Клиент некоторого банка 1 марта открыл счёт, вложив 10000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить через сколько месяцев размер вклада превысит 12000 руб. ПОМОГИТЕЕ СРОЧНО!!!
var
month, sum: real;
begin
sum := 10000;
month := 0;
while (sum < 12000) do
sum := sum + (sum / 100) * 2;
month := month + 1;
end;
writeln('Через ',month,' месяцев размер вклада превысит 12000 руб');
end.