program h530;
uses crt;
var i,s,q,k:integer;
BEGIN
clrscr;
writeln('Ââåäèòå q');
readln(q);
s:=0;
for i:=1 to q do
if q mod i=0 then begin
s:=s+i;
writeln(i); end;
writeln('Ñóììà s=',s:3); readln;
END.