m:-prompt1(''),readln([N]),format("~2r",N).