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

Program lol;
var a,v,s:real;
begin
readln (a);
v:=a*a*a;
s:=a*a*6;
writeln ('обьем куба =',v);
writeln ('площадь поверхности куба =',s);
end.