program searching squensial

squensial
DIMENSION x(6)
x(1)=2
x(2)=4
x(3)=6
x(4)=8
x(5)=10
x(6)=12

n=12
i=1
DO while i<=6
IF n=x(i)
? "ditemukan n ="
?? n
?? "diposisi"
?? i
EXIT
 ELSE
 i=i+1

ENDIF
ENDDO
IF i>6
? "data tidak ditemukan"
ENDIF