Сегодня Али в местном магазине сделал покупку за С тенге. у него есть всего N монет достоинств а1,а2,..аN тенге. определите, сможет ли он расплатится без сдачи

var input,output:text; n,i,j,g,nm,ans,t:integer; ara:array[0..1000] of integer; ar,arq:array[0..1000] of integer; ts,sum,a:integer; beginassign(input,'f.in');reset(input); assign(output,'f.out');rewrite(output); readln(input,a,n); ans:=10000; for i:=1 to n do begin read(input,ar[i]); ts:=ts+2*ar[i]; end; if ts1 do begin sum:=sum-ar[g]*arq[g];dec(nm,arq[g]);arq[g]:=0;dec(g); end; inc(arq[g]);sum:=sum+ar[g];inc(nm); end; if sum=a then begin if nm1000 then writeln(output,'0') else writeln(output,ans); end; close(output);close(input);end.