Question

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

Answer 1

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.

Answer 2

Не запрещается никакими правилами ходить во фраке по стройке, но если это станет делать рабочий, это назовут (мягко) выпендрежом.