(Pascal ABC)Вывести на экран тремя способами(используя операторы цикла FOR, WHILE, REPEAT) кубы всех целых чисел из диапазона от A до B (A меньше =B) в обратном порядке

Var   a, b, i:integer; Begin   write('Введите значения a и b: ');   read(a, b);      writeln('Цикл for');   for i := b downto a do write(i*i*i, ' ');   writeln();      writeln('Цикл while');   i := b;   while i >= a do   begin     write (i*i*i, ' ');     dec(i);   end;   writeln();      writeln('Цикл repeat');   i:=b;   repeat     write(i*i*i, ' ');     dec(i)   until i < a   writeln(); End.