var a: int64;
n:int64;   sum:int64; i,k:integer;
begin
read(n,k);
a:=0;
sum:=0;
for i:=1 to k do begin read(a); sum:=sum+a;  end;
if sum-n >=0 then
write(sum - n) else write('0');
end.

Edited by author 03.01.2015 03:26

Edited by author 03.01.2015 03:27