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

var    a: real;

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