написать программу,которая выводит на экран суммарный путь спортсмена за N дней тренировки.Если известно,что спортсмен,начав тренировку,в первый день пробежал 5 км,каждый день он увеличивает дневную норму на 17% нормы предыдущего дня.ПОМОГИТЕ ПОЖАЛУЙСТА!!Желательно решение в 3 способах

Program sportsman;
var N, S, i : real;
begin
writeln(Введите количество дней тренировки);
readln(N);
S:=5
for  i := 1 to N-1 do
S:= S+5/100*17;
writeln(За это количество дней тренировок спортсмен пробежал, S, км);
readln;
end.