Cod sursa(job #140536)

Utilizator mironalex2005Alexandru Miron mironalex2005 Data 21 februarie 2008 22:41:31
Problema Suma divizorilor Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
program p1;
var f,g:text;
    b,e,i,sd,aux:longint;
begin
assign(f,'sumdiv.in');reset(f);
assign(g,'sumdiv.out');rewrite(g);
readln(f,b,e);
aux:=b;
for i:=1 to e-1
    do
    b:=b*aux;
for i:=1 to b do
    if b mod i=0 then sd:=sd+i;
writeln(g,sd mod 9901);
close(f);
close(g);
end.