Question

задать длину ребра куба. найти объем куба и площадь его поверхности

Answer 1

program lol;
var a,v,s:real;
begin
readln (a);
v:=a*a*a;
s:=a*a*6;
writeln ('обьем куба =',v);
writeln ('площадь поверхности куба =',s);
end.