Если длина ребра именно равна 2 (a=2), то решаем так:

begin
Writeln(2*2*2,' ', 2*2); //Первое число - объём куба, второе - площадь боковой поверхности
end.

А если нам следует ввести значение a, то решаем так:

var a:int64;
begin
read(a);
Writeln(a*a*a,' ', a*a); //Первое число - объём куба, второе - площадь боковой поверхности
end.