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

var

i, n: integer; / / определяем две переменные целочисленного типа.

begin

write (' Введите одно число: '); / / вывод на экран строки.

readln (n); / / считываем число, введенное с клавиатуры.

for i : = 1 to n do / / начало цикла.

writeln ('Куб числа ', i,' равен ', power (i, 3)); / / вывод на каждом шаге цикла строки на экран

end.