1) Given the following constants
      character(LEN=80), parameter :: first_name = 'The FIRST name'
      character(LEN=80), parameter :: last_name = 'The last name'
      double precision, parameter :: cash = 128.73, debt = 0.895371E+12
 * Print them all on a line in the following way:
      (1) Ordered: last, first, cash, debt (last begins in first column!)
      (2) Exactly 2 spaces between each column
      (3) maximum of 6 spaces given for first name
      (4) maximum of 10 spaces for last name
      (5) 2 decimal places for cash, with room for 6 digits before the decimal
      (6) Debt printed as scientific notation, with 3 digits of exponent,
          a leading 1, and at least 10 digits of mantissa
  * Print your headings using good names and '=====' separators we have seen
    in class
  ** Playing around:
     ** Change it to printing both numbers scientific notation
     ** Change it so scientific notation has a leading 0 rather than 1
     ** Make the columns have only one space

2) Ask the user for N (last # of series to print), S0, S1, S2.  Then print
   out all numbers between 0 and N of the sequence:
      S(i) = S(i-1)*S(i-2) + S(i-3)
   Print it out in the format so that i is printed with leading zeros
   and 3 digits of space, and the result is in scientific notation with
   a leading 1.