m:-readln([D]),format("~2f
",8.1758*2^(D/12)),m.