Website and domain for sale:

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

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.
Answer add