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.