Длина ребра куба составляет 4 дм. найди его объём. в каждой грани куба провели диагональ и раскрасили по 1 треугольнику. найди площадь окрашенной поверхности.

Program cub;
var a,b,c,d:real;
begin
writeln('Введите длину грани куба');
readln(a);
b:=a*a;
c:=4*(a*a);
d:=a*a*a;
writeln('Площадь грани',b);
writeln('Площадь полной пов-ти',c);
writeln('Объем',d);
end.