Cod sursa(job #141174)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 22 februarie 2008 20:16:52
Problema Suma divizorilor Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
program p12;
var f,g:text;
    i,a,b,s,q:longint;
begin
assign(f,'sumdiv.in');reset(f);
assign(g,'sumdiv.out');rewrite(g);
readln(f,a,b);
q:=1; s:=1;
for i:=1 to b do
    begin
    q:=q*a;
    s:=s+q;
    if q> 9901 then begin
                          s:=s mod 9901;
                    end;
    end;
writeln(g,s);
close(g);
end.