Составить программу нахождения объема куба на паскале

Var a:real;
Begin
Write('Введите длину ребра куба: ');ReadLn(a);
Write('Объём куба равен: ',a*a*a);
End.