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.

In the "For" can not be used "int64"

Thank you