Số hoàn thiện

 Lập trình để tìm tất cả các số hoàn thiện trong khoảng m, n nhập từ bàn phím. Số hoàn thiện là số có tổng các ước số của nó (không kể n) thì bằng chính nó).
                                                                 Giải
Var
   tong,m,n,i,j: integer;
Procedure kt(a:integer);
   Begin
           Tong:=0;
           for i:=1 to a-1 do
               if (a mod i)=0 then tong:=tong+i;
           if tong=a then Write(a,'; ');
   end;
Begin
       Write('Nhap so m,n: '); readln(m,n);
       Write('Cac so hoan thien trong khoang ',m,'-',n,' la: ');
       For j:=m to n do Kt(j);
       Readln;
End.