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

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