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"+− +−