[Raiter]

Не может такого быть... Что-то ты намудрил у себя в коде

Dim n(10)

For i = 1 To 10
	n( i ) = i
Next

Repeat 

For i = 1 To 9
	If n( i ) = ( n( i + 1 ) - 1 ) Then Print n( i )
Next
	
Until KeyDown( 1 )