/* Fibonnacci numbers implemented in +
−
   the WHILE language */+
−
   +
−
write "Input a number ";+
−
read n;+
−
x := 0;   // start values+
−
y := 1;+
−
while n > 0 do {+
−
  temp := y;+
−
  y := x + y;+
−
  x := temp;+
−
  n := n - 1  // decrement counter+
−
};+
−
write "Result ";+
−
write y+
−
+
−