Дана длина ребра куба a. Найти объем куба V = a3

var
a, V, S: real;

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