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

var s:real; n:integer;begins:=10;n:=1;while s<20 do begin s:=s*1.1; n:=n+1; end;writeln(' n = ',n);end.Результат:n = 9