TREES PASCAL

var a:array[1..1000000] of longint;
        n,min,res:longint;
procedure nhap;
var i:longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
end;

procedure tim_min;
var i:longint; 
begin
        min:=a[1];
        for i:=2 to n do
                if a[i]<min then min:=a[i];
end;

procedure tinh;
var     i:longint;
begin
        res:=0;
        for i:=1 to n do res:=res+(a[i]-min);
        writeln(res);
end;


begin
        assign(input,'trees.inp');reset(input);
        assign(output,'trees.out');rewrite(output);
        nhap;
        tim_min;
        tinh;
end.