Question

Задача F Оплата
Сегодня Али в местном магазине сделал покупку за С тенге. Он только хотел расплатится и услышал от продавца фразу "Без сдачи пожалуйста, молодой человек" . У него есть N  монет достоинства а1, а2, ...., аN тенге. Определите, сможет ли он расплатится без сдачи.
формат входных данных
В первой строке входного файла записаны два целых числа С (1   ≤С  ≤  1000) и
 N  
 (1   ≤  N  ≤  15)- общая сумма покупки и количество монет у Али соотвественно. Во второй строке записаны N целых чисел 
а1, а2, ...., аN   (1  
≤ai    ≤  1000 )-достоинства монет Али. 
Формат выходных данных
В единсвенной строке выведите слово "YES", если Али сможнт расплатится без сдачи. Иначе, выведите  "NO"

Answer 1

Конечно это самый простой способ. Быть может и не правильно. Var c,n:integer; Begin Readln (n,c); If c=n then writeln ('yes') else writeln (' no'); End.

Answer 2

Gumitgg это неправильно там на тесте есть С=10 N=6