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

Var sum, i: integer;
begin
sum := 0;
i := 0;
repeat
inc(i);
inc(sum, i);
until sum > 100;
writeln(i - 1)
end.