m:-readln([X]),format("~0f
",X^0.25),m.