при
d = 34
s 0 34 68 102 136 170 204 238 272 306 340 374
n 0 5 10 15 20 25 30 35 40 45 50 55
1 день - 10км
2 день - 10км+(10*10)/100=11км
10+11=21км, следовательно во второй день
суммарный пробег 114,358881 (что превышает 100) на 8 день
Var a,b,c,s,n,i:integer;
begin
readln(n);
b:=1;
for i:=1 to n do
begin
c:=b+a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
<span>end.</span>