1 write "Fib";

     1 write "Fib: ";

     2 read n;

     2 read n;  

     3 minus1 := 0;

     3 minus1 := 1;

     4 minus2 := 1;

     4 minus2 := 0;

     6   temp := minus2;

     6        temp := minus2;

     7   minus2 := minus1 + minus2;

     7        minus2 := minus1 + minus2;

     8   minus1 := temp;

     8        minus1 := temp;

     9   n := n - 1

     9        n := n - 1

    11 write "Result";

    11 write "Result: ";

    12 write minus2

    12 write minus2 ;

    13 write "\n"

    14