progs/fib.while
changeset 275 618c7640cf66
parent 272 1446bc47a294
equal deleted inserted replaced
274:21f0f24424ab 275:618c7640cf66
     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 {