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

1

Ответы и объяснения

2013-12-18T20:06:49+04:00
Program lol;
var a,v,s:real;
begin
readln (a);
v:=a*a*a;
s:=a*a*6;
writeln ('обьем куба =',v);
writeln ('площадь поверхности куба =',s);
end.