Склавиатуры вводятся числа и последовательно суммируются. найти количество введенных чисел, когда их сумма превысила 100.

Var a,k,sum:integer;
begin
  while (sum < 100) do
  begin
     readln(a);
     k:=k+1;
     sum:=sum+a;
  end;
  writeln(k);
end.