1.
dim a(20)
a(1)=1
a(2)=1
for i=3 to 20
  a(i)=a(i-1)+a(i-2)
next i
for i=1 to 20
  print a(i);
next i
end
2.
dim a(20)
randomize timer
for i=1 to 20
  a(i)=100+int(rnd*899)
next i
for i=1 to 20
  print a(i);
next i
print
for i=1 to 19
  for j=i+1 to 20
    if a(i)<a(j) then swap a(i),a(j)
next j,i
for i=1 to 20
  print a(i);
next i
end
3.
dim a(20)
for i=1 to 20
  read a(i)
next i
data 32,12,38,25,9,36,10,16,33,28,89,96,75,88,69,99,56,98,74,90
input x
for i=1 to 10
  if x=a(i) then print a(i+10)
next i
end