Сколько чисел нужно взять в последовательности : 1+2+3+. чтобы получилось число, больше чем n? при n=252 нужно взять 23 числа программа + блок-схема.

Программа:
Var  n,i,sum:integer;
Begin 
  Write('Введите N в последовательности 1+2+3+4...N: '); readln(n);   
     while(sum<n) do begin     
i:=i+1;     
sum:=sum+i;     
             end; 
 Writeln('Чтобы получилось число больше ',n,' нужно взять ',i,' числа');
End.

Блок-схема в приложении