Y=ax^3/2 вычислить значение заданной функции в паскале

Var y:real; 
ax:real;  
begin 
write('Введите ax: '); 
readln(ax); 
y:=ax*ax*ax/2; 
writeln('Y = ', y);
end.