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

var i,s,n: Integer;beginreadln(n);for i := 1 to 10000 do begins := s + i;if s > n thenbeginwriteln(s);halt;end;end;end.

var n, s, k: integer;beginreadln(n);s:=0; k:=0;while s<n do begin k:=k+1; s:=s+k; end;writeln('k = ',k);end.Пример:60k = 11