Дана длина ребра куба a. Найти объем куба V = a3 и площадь его поверхности S = 6·a2 — Pascal(Паскаль)

program kub;
uses math;
var v, a, s: real;
begin
    write('Введите значение a: ');
    readln(a);
    v := power(a, 3); 
    s := 6 * sqr(a);
    writeln('Объем куба -- ', v);
    writeln('Площадь поверхности куба -- ', s);
end.