Cod sursa(job #393649)

Utilizator tiger_10Dutescu Radu Alin tiger_10 Data 9 februarie 2010 19:33:54
Problema Suma divizorilor Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
var f,g:text;
      a,b,i:longint;
      k,s,p:int64;
begin
        assign(f,'sumdiv.in');
        reset(f);
        read(f,a);
        read(f,b);
        close(f);
        p:=1;
        for i:=1 to b do
                p:=p*a;
        assign(g,'sumdiv.out');
        rewrite(g);
        writeln(g,p mod 9901);
        close(g);
end.