Cod sursa(job #140074)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 21 februarie 2008 10:29:43
Problema Suma divizorilor Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
program sumdiv;
var A,B,i,S,C : longint;
    f : text;
begin
assign(f,'sumdiv.in');
reset(f);
read(f,A,B);
close(f);
S := 1;
C := 1;


for i := 1 to B do begin
C := (C*A) mod 9901;
S := (S+C) mod 9901;
end;


assign(f,'sumdiv.out');
rewrite(f);
write(f,S);
close(f);
end.