Một đàn ong mật có N con được đánh số từ 1 đến N, con thứ i(1≤i≤N) có trọng lượng là số nguyên Ai. Biết rằng nếu một con ong có trọng lượng X thì trong một ngày sản xuất được lượng mật là X∗f(X), với f(X) là số ước dương của X. Yêu cầu: Hãy tính tổng lượng mật sản xuất được trong một ngày của cả đàn ong. Input: Dòng đầu ghi duy nhất số nguyên dương N. Dòng thứ hai lần lượt A1,A2,...,AN, các số cách nhau ít nhất một dấu cách. Output: Một số duy nhất là tổng lượng mật sản xuất được trong một ngày của cả đàn ong. Sample input: 4 1 2 3 4 Sample output: 23

uses crt;
var x,n,dem,res,i,j : longint;
a : array[1..1000] of longint;
begin
        clrscr;
        write('n=');
        read(n);
        for i := 1 to n do read(a[i]);
        for i := 1 to n do
                begin
                        dem := 0;
                        for j := 1 to trunc(sqrt(a[i])) do
                                if (a[i] mod j = 0) then begin
                                        if (a[i] div j <> j) then dem := dem + 2 else dem := dem + 1;
                                end;
                        res := res + dem*a[i];
                end;
        writeln(res);
        readln;
        readln;
end.