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

В цикле while при определенном n достигается превышение суммы. Последнее значение n, при котором превышения еще не было, должно быть меньше на единицу. Именно поэтому выводится не n, а n - 1.

var n, s: integer;

begin

n: = 0;

s: = 0;

while s < 50000 do

begin

n:=n + 1;

s: = s + n * n * n

end;

writeln ('Сумма кубов первых ', n-1:3, ' натуральных чисел не превышает 50000 и равна ', s-n*n*n, '.');

writeln ('Добавление куба еще одного числа (', n, '^3 = ', n * n * n, ') увеличивает сумму до ', s, '.')

end.