Составить программку , которая выводит на экран кубы чесел от 1

var
   i, n: integer; // определяем две переменные целочисленного типа.
begin
  write ( Введите одно число: ); // вывод на экран строчки.
  readln(n); // считываем число, введенное с клавиатуры.
  for i := 1 to n do // начало цикла.
  writeln(Куб числа , i, равен ,power(i,3)); // вывод на каждом шаге цикла строки на экран
end.