Составить программу в qbasic. в первый день спортсмен пробежал х км., кажду. следующую тренировку растояние увеличивалось на 5 %. посчитайте в сумме, сколько пробежит спортсмен за 30 тренировок?

INPUT x

a=x
FOR I=1 TO 30

a=a/100*105

x=x+a

NEXT I

PRINT x
END

P.S. Байсик я плохо знаю (пишу на c++), возможны синтаксические ошибки, но примерно программа должна выглядить так

Dim x As real

Dim i As integer

INPUT x

FOR i=1 TO 30

x=x+(x*0.05)

NEXT i

PRINT x
END

П.С. не большая поправка верхнего решения автору верхнего поста