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

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 sgt;= 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 gt; 200;
writeln (Денек , n, -й: суммарный пробег , s1:6:3, км.)
end.