Организовать суммирование введённых с клавиатуры чисел до тех пор, пока значение суммы не превысит S. Вывести полученную сумму на экран.

var a,s,s1:Integer;begin Write('Введите число, которое должна превысить сумма чисел (s): ');ReadLn(s);while s1<=s dobeginWrite('Введите число: ');ReadLn(a);s1:=s1+aend;WriteLn('Сумма введенных чисел: ',s1)end.