Составте программу ,которая возводит в куб введённое целое число, если оно отрицательное, и выводит на экран

Var n:integer;

begin
write('Введите целое отрицательное число: '); readln(n);
if n<0 then writeln('Куб числа "',n,'" = ',n*n*n)
else write('Число не отрицальное');
end.