ИнформатикБУ

Verified answer

Var
  s, x: integer;
begin
  s := 0;
  repeat 
   readln(x);
   if x <= 100 then
       s := s + x;
  until x > 100;
  writeln(s);
end.