Спортсмен в первый день пробежал 10 км. каждый следующий день он увеличивал дневную норму на 10% от результата предыдущего дня. найти,через сколько дней спортсмен будет пробегать более 20 км в день?

Program uolt;
var s,n:real;
begin
s:=10;
n:=1;
while s<20 do
begin
s:=s+s*0.1;
n:=n+1;
end;
writeln('через ',n,' дн. спортсмен будет пробегать более 20 км в день');
end.