Code

uses crt;
function pow(a,b: longint): longint;
begin
    if b = 0 then pow := 1 else pow := a * pow(a, b - 1);
end;
function sumOfDivisor(n: longint): longint;
var tmp,i,s: integer;
begin
    tmp := 0;
    s := 1;
    while n mod 2 = 0 do
    begin
        tmp := tmp + 1;
        n := n div 2;
    end;
    s := s * (pow(2, tmp + 1) - 1);
    tmp := 0;
    for i := 3 to Round(sqrt(n)) do
    begin
        while n mod i = 0 do
        begin
            tmp := tmp + 1;
            n := n div i;
        end;
        s := s * ((pow(i, tmp + 1) - 1) div (i - 1));
        tmp := 0;
    end;
    if n > 2 then s := s * ((n*n - 1) div (n - 1));
    sumOfDivisor := s;
end;
var i,n,max: integer;
var a: array[1..10000000] of integer;
begin
    readln(n);
    for i := 1 to n do
    begin
        read(a[i]);
        a[i] := sumOfDivisor(a[i]);
    end;
    max := a[1];
    for i := 1 to n do
        if a[i] > max then max := a[i];
    writeln(max);
end.