let type ia = array of int var n : int := 16 var a := new ia [ n ] of 0 in a [ 1 ] := 1 for i := 2 to n - 1 do (a [ i ] := a [i - 1] + a [i - 2]) end