Паскаль. Вывод на экран кубов чисел от 15 до 2
var i:integer;
begin
for i:=15 downto 2 do writeln(i*i*i);
end.