Набрать в паскале данно вещественное число v. считая это число объёмом куба, найти его ребро и площадь поверхности .

Var v,a:real;
begin
Readln(v);
a:=exp (ln (v) / 3);
writeln('Pебро = '+a);
writeln('площадь поверхности = '+6*a*a);
end.