To generate the series 20, 18.5, 15, 13.5, ….. upto 10th term. (Qbasic Code)

To generate the series 20, 18.5, 15,  13.5, ….. upto 10th term.

• a = 20
  c = 1
  DO
      PRINT a
      a = a - 1.5
      c = c + 1
  LOOP UNTIL c > 10
  END