Помогите с задачей. язык программирования Паскаль

Question

Помогите с задачей. язык программирования Паскаль

---

Answer 1

Var
   M,i,N:integer;
Begin
M:=0;
Write('N = ');ReadLn(N);
i:=1;
While i*i*(1+i) <= N do<br>   Begin
   M:=M+1;
   i:=i+1;
   End;
Write('M = ',M);
End.