помоги информатика 8 класс​

var

m:integer;

begin

for m:=12 downto 7 do

writeln(m*m*m);

readln;

end.

Если тебе помог мой , то ты можешь сделать его лучшим)