Составить программу в 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 xEND

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