1 2 3 4 5 6 7 8 9 10 11
f1 := 0; f2 := 1; n := 5; while n # 0 do var tmp := f2 in f2 := f1 + f2; f1 := tmp; end; n := n - 1; end;