var

 m :integer;

begin

for m:= 14 downto 4 do

writeln(m*m*m);

readln;

end.

Как ты можешь заметить, на практике всё прекрасно работает. Выводятся кубы от числа 14 до числа 4.