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

Var    a: real;

begin
    write('Введите сторону куба = ');
    readln(a);
    writeln('Объем = ', a * a * a);
    writeln('Площадь поверхности = ', 6 * a * a);
end.