用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?用pascal编程、用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?

用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?用pascal编程、用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?
用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?用pascal编程
、用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?例如S＝7,则1+2+37,则最大的N为3.
输入输出格式与样例：
输入：7
输出：3

用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?用pascal编程、用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?
var
s,n,sum:longint;
begin
readln(s);
n:=1;
sum:=0;
while sum