Найти число М, удовлетворяющее условию - Turbo Pascal

Формулировка задачи:

Найти число М натуральных чисел n(i) таких, что n(i)^2 + n(i)^3<=N, где N - заданное натуральное число.

Решение задачи: «Найти число М, удовлетворяющее условию»

Листинг программы

Var N, M : word;
    x :LongInt;
Begin
  Write('Задайте N:');
  ReadLn(N);
  M:=0;
  x:=1;
  while x*x*(x+1) <= N do
    begin
      inc(M); inc(x);
    end;
  WriteLn('Условию x*x*(x+1) <= N удовлетворяют ',M,' чисел');
  ReadLn;
end.

Объяснение кода листинга программы

Объявляются переменные N, M и x типа word.
Задается начальное значение переменной M равным 0.
Задается начальное значение переменной x равным 1.
Запускается цикл while, условием которого является xx(x+1) <= N.
Внутри цикла увеличивается значение переменной M на единицу.
Внутри цикла увеличивается значение переменной x на единицу.
Проверяется, выполняется ли условие xx(x+1) <= N. Если да, то цикл продолжается, иначе он завершается.
После завершения цикла выводится сообщение о том, удовлетворяют ли найденные числа условию xx(x+1) <= N, и вызывается функция ReadLn для чтения символа новой строки.
Программа завершается.