Пожалуйста HELP!SoS. Нужна программа по нахождению объёма куба в Pascal ABC

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