dim fruta$(3)
read fruta$(1), fruta$(2), fruta$(3)
data "apple", "orange", "pear"

print arraysize(fruta$(),1)
print fruta$(2)
end