program distance;

var
day, totalDistance: integer;
currentDistance: real;

begin
totalDistance := 10;

currentDistance := totalDistance;

for day := 1 to 10 do
begin
writeln('Distance on day ', day, ': ', currentDistance:0:2, ' km');
currentDistance := currentDistance + (currentDistance * 0.05);
end;
end.