Начав тренировки спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Какова длина дистанции в N-й день и каков СУММАРНЫЙ пробег спортсмена за все эти N дней. Ответ получить в км с точностью до метра — Pascal(Паскаль)

 

        ╔═══════════════════╤═══════╤═════════╤════════════╗
        ║ Номер дня         │   1   │    5    │    10      ║
        ╟───────────────────┼───────┼─────────┼────────────╢
        ║ Длина дистанжии   │10.000 │ 16.105  │   25.937   ║
        ╟───────────────────┼───────┼─────────┼────────────╢
        ║ Суммарный пробег  │10.000 │ 77.156  │   185.312  ║
        ╚═══════════════════╧═══════╧═════════╧════════════╝


program dddf;
uses crt;
var
   den, i : Integer;
   dlina, summa, prozent, a : Real;
begin
ClrScr;
     Write('Введите кол-во дней: ');
     ReadLn(den);
     dlina := 10;
     summa := 0;
     prozent := 10;
     if den = 1 then
      begin
       WriteLn('Дистанция         = ', 10.000:10:3,' м');
       WriteLn('Суммарный пробег  = ', 10.000:10:3,' м')
      end
     else
      begin
       for i := 1 to den do
        begin
         a := (dlina / 100) * prozent;
         dlina := dlina + a;
         summa := summa + dlina
        end;
       WriteLn('Дистанция         =', dlina:10:3,' м');
       WriteLn('Суммарный пробег  =', (summa+10):10:3,' м')
      end;
     WriteLn;
     Write('Press Enter');
     ReadLn
end.