pascal цыклы

[lunnamedl]

С клавиатуры вводится целочисленная последовательность. Ввод продолжается до того как сумма всех введенных чисел превысит (станет больше 100). Вывести сумму на экран.
помогите

[Chudo4258]

S:=0;
while S<=100 do
 begin
  write('Введите число ',x);
  readln(x);
  S:=S+x;
 end;
//ввели последную цифру, так что S стало > 100, следовательно при выводе суммы вычтем обратно это число
Writeln(S-x);

Можно сделать через repeat .... until, тогда там ненадо будет вычитать