Найти объем куба,периметр основания которого равен P см — Pascal(Паскаль)

uses crt;
var p:real;
begin
clrscr;
writeln('Vvedite p');
readln(p);
writeln('Obem raven ',p*sqrt(p):5:2);
readln;
end.