记录编号	22335	评测结果	AAAAAAAAAA
题目名称	分班	最终得分	100
用户昵称	itachi	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2010-11-18 16:53:55	内存使用	0.11 MiB

program t1(input,output);
var
a:array[1..50] of longint;
l,r,n,i,j,x,y,sum:longint;
procedure Sort(l, r: longint);
var
  i, j, x, y: longint;
begin
  i := l; j := r; x := a[(l+r) DIV 2];
  repeat
    while a[i] < x do i := i + 1;
    while x < a[j] do j := j - 1;
    if i <= j then
    begin
      y := a[i]; a[i] := a[j]; a[j] := y;
      i := i + 1; j := j - 1;
    end;
  until i > j;
  if l < j then Sort(l, j);
  if i < r then Sort(i, r);
end;

begin
assign(input,'groupa.in');
reset(input);
assign(output,'groupa.out');
rewrite(output);
sum:=0;
 readln(n);
 for i:= 1 to n do
 begin
 read(a[i]);
 inc(sum,a[i]);
 end;
 read(l,r);
 if( sum < (l * n)) or (sum> (r*n))  then
  begin
  writeln(-1);
  close (input);
  close(output);
  halt;
  end;
 sort(1,n);
 i:=1;  x:=0; y:=0;
 repeat
 if a[i]<l then inc(x,l-a[i]) ;
 if a[i]>r then inc(y,a[i]-r);
 inc(i);
 until i>n;
 if x> y then writeln(x ) else writeln(y);
 close(output);
 close(input);

end.