DIM fruta$(2)
READ fruta$(1), fruta$(2)
DATA "apple", "orange"

LET tamano = UBound(fruta$) - LBound(fruta$) + 1

PRINT "La longitud del array fruta$ es" ; tamano
END