记录编号	22273	评测结果	AAAAAAAAAA
题目名称	分班	最终得分	100
用户昵称	王者自由	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2010-11-18 12:56:03	内存使用	0.11 MiB

program groupa;
var n,i,l,r,w,s,p:longint;
  A:array[1..50]of longint;
begin
  assign(input,'groupa.in'); reset(input);
  assign(output,'groupa.out'); rewrite(output);
  readln(n);
  w:=0;
  for i:=1 to n do
  begin
    read(A[i]);
    w+=A[i];
  end;
  readln(l,r);
  if (w<l*n)or(w>r*n)
    then writeln(-1)
    else begin
      s:=0; p:=0;
      for i:=1 to n do
        if A[i]<l then s+=l-A[i]
        else if A[i]>r then p+=A[i]-r;
      if s>p then writeln(s) else writeln(p);
    end;
  close(input); close(output);
end.