Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба. паскаль абс

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.