Help! sos. нужна программа по нахождению объёма куба в pascal abc

Var a,b: integer;
begin
write('введите три грани куба : ');
readln(a);
b:=a*a*a;
writeln('объём куба',b);
end.