1 /* Fibonacci Program
2 input: n */
3
4 write "Fib";
1 write "Fib";
5 read n;
2 read n;
6 minus1 := 0;
3 minus1 := 0;
7 minus2 := 1;
4 minus2 := 1;
8 while n > 0 do {
5 while n > 0 do {