algo Var N, S, i: entier; debut lire(N); s:=0 Pour i = 1 a (N div 2) if (N mod i) =0 then S:=S+i; ecrire(s); fin