Em hãy viết chương trình nhập vào một số nguyên n in ra các ước của số n và tính tổng các ước của số n?

uses crt;

var n,i,s :integer;

begin

clrscr;

writeln('Nhap n'); readln(n);

s:=0;

for i:=1 to n do

if n mod i:=0 then

begin

s:=s+i;

writeln(s);

end;

readln;

end.