PascalABC.NET
begin
var a := ReadReal('Введи длину ребра');
var v := Pi * a ** 3 / (4 * Tan(Pi / 6));
Writeln('V = ',v)
end.
