Qbasic ошибка "duplicate definition"

[Костя КС]

простейшая программа на неизвестном для меня бейсике почему то выдает ошибку:

10  rem sxema gornera
20  dim A(10)
30  print "N"
40  print "X"
50  input N.X
60  N = N + 1
70  For I = 1 to N  // на переменной  I как раз возникает эта ошибка
80  print "A": i - 1
90  input A(I)
100 next I
110 S = S * X + A(1)
120 for I = 2 to N
130 S = S * X + A(I)
140 NEXT I
150 PRINT "X= ": X. "S=": S
160 END

[Fellics{новичок}]

Ты объяви переменную.
А вообще бейсик ломаный язык. Я, когда изучал алгоритмику пару уроков прошел, а потом сразу на паскаль.

[Костя КС]

в том то и дело - паскаль я неплохо знаю, а тут именно в бейсике нужно.
Я пробовал объявить, dim i as integer, как я понял. Но то же самое

[Sazary]

Косяк какой-то. Переписал вручную и ошибка исчезла.

DIM A(10) AS INTEGER
DIM i AS INTEGER
CLS
DIM N AS INTEGER
DIM X AS INTEGER
INPUT "N = "; N
INPUT "X = "; X
N = N + 1
FOR i = 1 TO N
 PRINT "A"; i - 1
 INPUT A(i)
NEXT i
S = S * X + A(1)
FOR i = 2 TO N
 S = S * X + A(i)
NEXT i
PRINT "X= "; X; "S = "; S
END

[Костя КС]

спасибо за помощь.
терпеть не могу этот бейсик...

[Goodwin98]

Ошибка была тут

80  print "A": i - 1

терпеть не могу этот бейсик...

Незнаю как вас там учат. Это самый простой язык, какой я только видел.