Определите площадь поверхности куба и его объем (длина ребра равна a)

Ответы:

uses crt,

var a:integer,

begin

readln(a),

writeln(площадь равна ,a*a*6),

writeln(объем равен ,a*a*a),

end.