write "Input a number ";+− read n;+− x := 0;+− y := 1;+− while n > 0 do {+− temp := y;+− y := x + y;+− x := temp;+− n := n - 1+− };+− write "Result ";+− write y+− +−