var s, i, k, x :integer;
begin
s := 0;
write('k=');
readln(k);
while (s < k) do
readln(x);
s := s + x;
end;
writeln('Сумма стала больше числа k, она равна: ', s);
end.
var s, i, k, x :integer;
begin
s := 0;
write('k=');
readln(k);
while (s < k) do
begin
readln(x);
s := s + x;
end;
writeln('Сумма стала больше числа k, она равна: ', s);
end.