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

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

program cb;varn, i: integer;beginwrite('n = ');readln(n);for i := 1 to n dowriteln(i * i * i);end.