记录编号	64812	评测结果	AAAAAAAAAA
题目名称	修理牛棚	最终得分	100
用户昵称	赵寒烨	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2013-07-24 16:42:31	内存使用	0.17 MiB

var
  m,s,c,ans,i,j,t:longint;
  a,b:array [1..200] of longint;
begin
  assign(input,'barn1.in');reset(input);
  assign(output,'barn1.out');rewrite(output);
  readln(m,s,c);
  if m>c then m:=c;
  for i:=1 to c do readln(a[i]);
  for i:=1 to c-1 do
    for j:=i+1 to c do
      if a[i]>a[j] then begin
        t:=a[i];
        a[i]:=a[j];
        a[j]:=t;
      end;
  for i:=2 to c do
    b[i]:=a[i]-a[i-1];
  for i:=1 to c-1 do
    for j:=i+1 to c do
      if b[i]<b[j] then begin
        t:=b[i];
        b[i]:=b[j];
        b[j]:=t;
      end;
  ans:=a[c]-a[1]+1;
  for i:=1 to m-1 do
    ans:=ans-b[i]+1;
  writeln(ans);
  close(input);
  close(output);
end.