let type intarr = array of int var arr := new intarr [15] of 2 in for i:=0 to 13 do (arr[i+1] := arr[i+1] * arr[i]) end