m:-readln([X]),format("~1f
",X*180/pi),m.