Лыжник пробежал в 1 день 10 км, каждый следующий день он пробегал на 10% больше. Определить в какой день он пробежит

program skier;var s, s1: real;n: integer;begin

n:= 1; s:= 10; s1:= 10;repeatn:= n + 1;s:= s + s * 0.10;until s>= 20;writeln (\'День \', n, \'-й: дневной пробег \', s1:6:3, \' км.\');

n:= 1; s:= 10; s1:= 10;repeatn:= n + 1; s:= s + s * 0.10;s1:= s1 + s;until s1 > 200;writeln (\'День \', n, \'-й: суммарный пробег \', s1:6:3, \' км.\')end.