Сегодня Али в местном магазине сделал покупку за С тенге. у него есть всего 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 ts
begin

ara[1]:=3; for i:=2 to 15 do

begin

ara[i]:=3*ara[i-1];

end;

for i:=1 to ara[n] do

begin if arq[n]<2 then

begin inc (arq[n]) ;

sum:=sum+ar[n]; inc (nm) ; end else

begin g:=n; while arq[g]>1 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 nm
ans:=nm; end;

end;

if ans>1000 then writeln (output,'0') else

writeln (output, ans) ; end;

close (output) ; close (input) ; end.