Плез, буду признателен. паскаль. напечатать в обратном порядке кубы целых чисел от 10 до b (значение b вводится с клавиатуры, b> 10). значение b изменяется от 22 до 10

Var b,i:integer;
begin
write('b (>10) = '); readln(b);
for i:=b downto 10 do write(i*i*i,'  ');
writeln;
end.

Пример:
b (>10) = 22
10648  9261  8000  6859  5832  4913  4096  3375  2744  2197  1728  1331  1000