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

program skier;

var s, s1: real;

n: integer;

begin

n: = 1; s: = 10; s1: = 10;

repeat

n: = n + 1;

s: = s + s * 0.10;

until s> = 20;

writeln ('День ', n, '-й: дневной пробег ', s1:6:3, ' км.');

n: = 1; s: = 10; s1: = 10;

repeat

n: = n + 1; s: = s + s * 0.10;

s1: = s1 + s;

until s1 > 200;

writeln ('День ', n, '-й: суммарный пробег ', s1:6:3, ' км.')

end.