Найти количество натуральных чисел,сумма которых не превышает 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.