Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода значения, которое больше 100Цикл Until, Pascal

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