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

2013-10-15T16:17:29+04:00
// Объём куба
var d, S, V:real;
begin
write('d='); readln(d);
V:=d*d*d; S:=d*d;
writeln('V=',V, ' S=',S);
end.