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

Question

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

Answer 1

Var    a: real;

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