Через паскаль абс дана длина ребра куба а. найти объем куба v = a3 ( третья степень ) и площадь его поверхности s = 6 *a2. пример ввода: 3 пример вывода: объём куба с ребром 3 равен 27 площадь поверхности куба равна 54

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