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.