chomp ($n = <>); while($n--){ chomp ($r = <>); print 0.75 * sqrt(3) * $r * $r, "\n"; }