Составьте программу позволяющую напечатать кубы натуральных чисел от 1 до n возведение в 3-ю степень

//PascalABC.Net
begin
for var i:=1 to readinteger ('Введите n: ') do print (i*i*i);
end.

Program cb;
var
n, i: integer;
begin
write('n = ');
readln(n);
for i := 1 to n do
writeln(i * i * i);
end.