Pascal :

var i,j,k,m,n,p:longint;
    a:array[0..2000] of longint;
    sum:longint;
    ans:longint;
    maxh,minh:longint;
    max,min:longint;
begin

 read(n);
 min:=10000000;
 max:=0;
 for i:=1 to n do
 begin
  read(a[i]);
  if a[i]<min then min:=a[i];
  if a[i]>max then max:=a[i];
 end;
 ans:=maxlongint;
 for minh:=min to max do
  begin
   sum:=0;
   maxh:=minh+17;
   for i:=1 to n do
    begin
     if a[i]>maxh then
       sum:=sum+sqr(a[i]-maxh)
     else
     if a[i]<minh then
       sum:=sum+sqr(a[i]-minh);
    end;
  if sum<ans then ans:=sum;
 end;
 writeln(ans);

end.