Определить, сколько лыжник пробежит за N дней - Pascal

Формулировка задачи:

Начав тренировку лыжник в 1 день пробежал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить, сколько он пробежит за N дней, если N вводится с клавиатуры. Саму программу я составил, но как, и можно ли сделать так, что бы на экран выводило все дни, например: если N = 4, то выводило: 1. 10.00 км 2. 11.00 км 3. 12.10 км 4. 13.31 км Вот программа:

Program A9; 
 
Var 
   n,i:integer; 
   o,s:real; 
 
Begin 
  Write('Введіть N = '); 
  ReadLn(n); 
  s:=10; 
  o:=10; 
  For i:=2 to n do 
    Begin 
      s:=s+s*0.1; 
      o:=o+s; 
    end; 
  WriteLn('Загальна відстань на ',n,' день = ',o:1:2); 
end.

Решение задачи: «Определить, сколько лыжник пробежит за N дней»

Листинг программы

Program A9;
 
Var
   n,i:integer;
   o,s:real;
 
Begin
  Write('Введіть N = ');
  ReadLn(n);
  s:=10;
  writeln(' 1.',s:5:2);
  o:=10;
  For i:=2 to n do
    Begin
      s:=s+s*0.1;
      writeln(i:2,'.',s:5:2);
      o:=o+s;
    end;
  WriteLn('Загальна відстань на ',n,' день = ',o:1:2);
end.

Объяснение кода листинга программы

В программе объявлены три переменные: n, i и s.
В строке 10 значение переменной s инициализируется как 10.
В строке 11 значение переменной o инициализируется как 10.
В строке 13 начинается цикл For, который выполняется от 2 до n (включительно).
Внутри цикла значение переменной s увеличивается на 10% от текущего значения s.
После каждого увеличения значения s, выводится текущее значение i и s на экран.
Значение переменной o увеличивается на сумму s и o после каждого увеличения значения s.
По завершении цикла, выводится сообщение о том, что общая дистанция на n дней равна o.
Программа завершается.