khỏi ý 1 nha
program bai1;
var n,s,i:longint;
begin
write('N= ');readln(n);
write('Uoc cua ',n,' la: ');
for i:=1 to n do
if (n mod i=0) then write(i,' ');
s:=0;
for i:=1 to n do
begin
if (n mod i=0) then
if (i mod 2=0) then s:=s+i;
writeln('Tong cac uoc chan la: ',s);
readln
end.