Определить количество натуральных чисел ,рассматривая их в порядке возрастания,сумма кубов которых не превышает 50000

В цикле while при определенном n достигается превышение суммы. Последнее значение n, при котором превышения еще не было, должно быть меньше на единицу. Именно поэтому выводится не n, а n - 1.var n, s: integer; begin n:= 0;s:= 0;while s < 50000 dobegin n:=n + 1;s:= s + n * n * nend;writeln(\'Сумма кубов первых \', n-1:3, \' натуральных чисел не превышает 50000 и равна \', s-n*n*n, \'.\'); writeln(\'Добавление куба еще одного числа (\', n, \'^3 = \', n * n * n, \') увеличивает сумму до \', s, \'.\')end.