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

var
a, V, S: real;

begin
writeln('Введите длину ребра куба:');
readln(a); { <-- Вводим длину ребра }
V := a * a * a; { <-- Объем куба }
S := 6 * a * a; { <-- Площадь поверхности куба }
writeln('Результат:');
writeln(' V = ', V:0:3);
write(' S = ', S:0:2);
readln
end.