Program timtongcacuoc;

Uses crt;

Var  s:array[1..1000] of integer;

BEGIN

Readln(n);

k:=1;

For i:= 1 to n do 

begin

 for j:=2 to i – 1 do if i mod j = 0 then a[i]:=a[i]+j;

end;

 for j:=1 to n do

        begin

          if a[j] < a[j+1] then

          begin

              m:=j+1;

           end;

A

A

B

A

D

D

C

D

Đ