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 ;

write "\n"