write "Fib";+
−
read n;  +
−
minus1 := 1;+
−
minus2 := 0;+
−
while n > 0 do {+
−
       temp := minus2;+
−
       minus2 := minus1 + minus2;+
−
       minus1 := temp;+
−
       n := n - 1+
−
};+
−
write "Result: ";+
−
write minus2 +
−
+
−