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

Предыдущий
вопрос Следующий
вопрос

program SumCubes;

var
count, num, sumCubes: integer;

begin
count := 0;
num := 1;
sumCubes := 0;

while sumCubes + num num num <= 50000 do
begin
sumCubes := sumCubes + num num num;
count := count + 1;
num := num + 1;
end;

writeln('Количество натуральных чисел: ', count);
end.