Паскаль. Вывод на экран кубов чисел от 15 до 2

program zz1;

var i:integer; / / задаем переменную цикла целого типа

begin

for i:=15 downto 2 do / / организуем цикл, в котором переберем все числа от пятнадцати до двух

writeln (' для числа ', i,' значение куба = ', i * i * i); / /выводим ответ в столбец

end.