Website and domain for sale: mail@discussmain.com

For the set whole positive number N calculate the sum of its dividers. in pascal

74
Var N, S, d: integer; Begin S: = 0; Write (N =); ReadLn(N); For d: = 1 to N do if N mod d = 0 then S: = S+d; WriteLn (S =, S) End.
113
Answer add