Программа должна вывести кубы чисел от 15 до 3. Для этого нужно проинициализировать переменную, задать цикл от 15 до 3 и внутри цикла выводить квадрат числа.
var m:integer;begin for m:= 15 downto 3 do writeln (m*m*m); readln;end.
Ответ: 15; 3.