Задача программирования дана длинна ребра куба найти объём куба и площадь его боковой поверхности, длина ребра а=2

Если длина ребра именно равна 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.