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

program groupa;
var a,b,tot:int64;
    g:array[1..100]of longint;
    l,r,t,k,m,n,i,j:longint;
begin
assign(input,'groupa.in');
reset(input);
assign(output,'groupa.out');
rewrite(output);
readln(n);
for t:=1 to n do
  begin
    read(g[t]);
    tot:=tot+g[t];
  end;
readln;
readln(l,r);
if (tot div n<l)or(tot div n>r)or(tot div n=r)and(tot mod n>0) then
  begin
    writeln(-1);
    close(output);
    halt;
  end;
for t:=1 to n do
  begin
    if g[t]<l then a:=a+l-g[t]
    else if g[t]>r then b:=b+g[t]-r;
  end;
if a>b then writeln(a)
else writeln(b);
close(output);
end.