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

program try;
var
i,d :integer;
s :real;
begin
s:=10;
d:=1;
while s<100 do
begin
s:=s+s*1.1;
d:=d+1;
end;
writeln(d);
end.