Как во второй задаче вывести количество сложенных чисел???

uses crt;   var i,s:integer;beginwhile s<100 do begini:=i+1;s:=s+i;end;                             write(i-1,'  ',s-i);readkeyend.                             Ответ:13, 91