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

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