编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言

编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言
编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言

编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言
var i,x,a ：integer;
begin
read(x);
a:= 0;
for i :=1 to x do
begin
if x mod i = 0 then a := a+i;
end;
write(a);
end.