Ответ:

program Prog;
var
   num : Integer = 0;
   i : Integer = 1;
begin
   while i < 100 do
   begin
       readln(num);
       i := i + num;
   end;
end.