let type aint = array of int var f: aint := new aint[10] of 0 in f[0] := 0; f[1] := 1; for i:=2 to 9 do f[i] := f[i-1] + f[i-2]; f end