记录编号	22260	评测结果	AAAAAAAAAA
题目名称	分班	最终得分	100
用户昵称	ybh	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2010-11-18 12:04:47	内存使用	0.13 MiB

{分班 NOIP模拟2010-11-18
 水题
 Author: yangbohua
 Time: 2010-11-18}

program groupa;
var
  a:array[0..5000] of longint;
  n,i,sum,l,r,max1,max2:longint;

begin
  assign(input,'groupa.in');
  reset(input);
  assign(output,'groupa.out');
  rewrite(output);
  readln(n);
  sum:=0;
  for i:=1 to n do
  begin
    read(a[i]);
    sum:=sum+a[i];
  end;
  readln(l,r);
  if (sum/n>=l) and (sum/n<=r) then
  begin
    max1:=0;
    max2:=0;
    for i:=1 to n do
    begin
      if a[i]>r then max1:=max1+a[i]-r;
      if a[i]<l then max2:=max2+l-a[i];
    end;
    if max1>max2
      then writeln(max1)
      else writeln(max2);
  end
  else
    writeln(-1);
  close(input);
  close(output);
end.