Дана длина ребра куба найти площадь грани площадь полной поверхности и объем этого куба. ПАСКАЛЬ!

program kub;
uses crt;
var a:real;
begin
clrscr;
writeln('Введите ребро куба');
readln(a);
writeln('Площадь грани =',a*a);
writeln('Площадь полной поверхности =',a*a*6);
writeln('Объем куба =',a*a*a);
readln
end.