(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.