var a,i,b,n,k: int64;
begin
readln(n,k);
for i:=1 to k do
 begin
  read(a);
  b:=b+a;
 end;
writeln(b-n);
end.