Вывести ** экран кубы чисел от 10 до 1 в Паскал

Question

Вывести на экран кубы чисел от 10 до 1 в Паскал

Answer 1

Var A:integer;
Begin
For A:= 10 downto 1 do
    Write(A*A*A,' ')
End.