Найти количество натуральных чисел,сумма которых не превышает 100

Задача решена в TPascal
var s,k,i:integer;
begin
i:=1;s:=0;k:=0;
while s<100 do
begin
 k:=k+1; s:=s+i; i:=i+1;
end;
writeln (k);
readln;end.