m:-skip(10),a.
a:-readln([A]),format("~0f
",2.618033989^(A+0.5)/5),a.