Спортсмен пробежал 10 км в первый день каждый следующий день он увеличивал на 10% найти общее количество км пройденных за 7 дней. не по паскалю, практическая работа, в письменной форме

1-10км 2 день- (10*0.1)+10=11 3 день-(11*0.1)+11=12.1 4 день-(12.1*0.1)+12.1=13.31 и т.д

Var     i,k,m,r,p,j: integer;     a: array[1..10]of integer; begin writeln('массив: '); for i: =1 to 10 do     begin   a[i]: =random(10);   write(a[i],' ');   end; writeln; write('введите k,m,r: '); readln(k,m,r); for i: =1 to r do   begin   j: =k;   p: =a[j];   while j< m do     begin     a[j]: =a[j+1];     j: =j+1     end;   a[j]: =p;   end; writeln('измененный массив: '); for i: =1 to 10 do  write(a[i],' ');   end.

Const   n = 5;                     {количество спортсменов} var   k : array [1..n] of integer;   i,  max : integer; begin   for i : = 1 to n do   begin     write('результат спортсмена номер:   ', i, ': ');     readln(k[i]);     end;   max : = k[1];   for i : = 2 to n do     if k[i] > max then       max : = k[i];   writeln('максимальный результат:   ', max); end.