Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода значения, которое больше 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.