Используя цикл while, напишите программу, вычисляющую сумму кубов чисел от 1 до введённого целого числа m.​

var i,m,sum: integer; beginread(m); while i<m dobegini:=i+1;sum:=sum+i*i*i; end;write(sum); end.

Пример работы:

1*1*1 + 2*2*2 + 3*3*3 + 4*4*4 + 5*5*5 = 1+8+27+64+125 = 225