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

Var    a: real;

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