Шары расположены в форме треугольника так, что в первом ряду находится один шар, во втором – два, в третьем – три и так далее. Сколько рядов удастся построить, если имеется N шаров — Pascal(Паскаль)

uses crt;
var n,i,k:integer;
begin
clrscr;
write('n=');
readln(n);
i:=1;k:=1;
while k<n do
 begin
  i:=i+1;//считаем ряды
  k:=k+i;//считаем шары
 end;
if k>n then i:=i-1;
write('i=',i);
readln
end.