Cod sursa(job #140453)

Utilizator mironalex2005Alexandru Miron mironalex2005 Data 21 februarie 2008 21:13:57
Problema Suma divizorilor Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
program p1;
var f,g:text;
    b,e,i,sd,aux:longint;
begin
assign(f,'sd.in');reset(f);
assign(g,'sd.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.