Начав тренировки, спортсмен пробежал в первый день 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Определить, через сколько дней спортсмен пробежит суммарный путь 100 км - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
k : integer;
n,sum : real;
begin
n:=10; k:=1;
repeat n:=10+(n*0.1);
inc(k);
sum:=sum+n;
until sum>=100;
writeln (k);
end.