Дано натуральное число b и n целых чисел. Верно ли, что сумма данных целых чисел не превышает b.

var
  b, n, s, a: integer;

begin
  readln(b, n);
  for i: integer := 1 to n do
  begin
    readln(a);
    s += a;
  end;
  writeln(b >= s ? Yes : No);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.