fun Ġmain ( a Ġ: ĠDouble ) Ġ{ ĊĠĠĠ Ġval Ġeps Ġ: ĠDouble Ġ= Ġ 0 . 0 0 0 0 1 ĊĠĠĠ Ġvar Ġx Ġ: ĠDouble ĊĠĠĠ Ġvar Ġy Ġ: ĠDouble ĊĠĠĠ Ġvar Ġdet Ġ: ĠDouble ĊĠĠĠ Ġvar Ġn Ġ: ĠInt Ġ= Ġ 3 ĊĠĠĠ Ġval ĠPI Ġ: ĠDouble Ġ= Ġ 3 . 1 4 ĊĠĠĠ ĠPI Ġ+= Ġ 0 . 0 0 1 5 9 2 ĊĠĠĠ Ġx Ġ= Ġa ĊĠĠĠ Ġy Ġ= Ġa ĊĠĠĠ Ġdet Ġ= Ġto Double ( readLine () !! ) Ġ+ Ġa ĊĠĠĠ Ġdo Ġ{ ĊĠĠĠĠĠĠĠ Ġdet Ġ= Ġ- det Ġ* Ġx Ġ* Ġx Ġ/ Ġ(( n Ġ+ Ġ 1 )* n ) ĊĠĠĠĠĠĠĠ Ġn ++ ĊĠĠĠĠĠĠĠ Ġy Ġ+= Ġdet ĊĠĠĠ Ġ} Ġwhile Ġ( get Abs ( det ) Ġ> Ġeps ) ĊĠĠĠ Ġprintln ( y ) Ċ }