Cod sursa(job #346570)

Utilizator FLORINSTELISTUOprea Valeriu-Florin FLORINSTELISTU Data 8 septembrie 2009 16:53:01
Problema Suma divizorilor Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
program p_a_la_b;
var q,j,p,nr,s:longint;f,g:text;
begin
      assign(f,'sumdiv.in');reset(f);
      assign(g,'sumdiv.out');rewrite(g);
      read(f,nr,p);
     q:=1;
    for j:=1 to p do begin
      q:=q*nr;
  end;s:=1;
       for j:=2 to  q   do begin
       if q mod j=0 then s:=s+j;end;
       write(g,s mod 9901);   close(f);close(g);
end.