Program so_hoan_chinh;

Uses crt;

Var i,n,S: integer;

Begin

       Write ( ' nhap n la:',); readln (n)

       S:=0

       For i:=1 to n-1 do

       If I mod i= 0 then S:=S+i;

       If S=n then write (n, ' do la so hoan chinh') else write (n,' khong phai la so hoan chinh');

       Readln

End.

Program SHH;

Uses crt;

Var n: longint;

Function SHH(a:longint):boolean;

Var i,s:longint;

Begin

           s:=0;

           For i:=1 to a div 2 do

                      If a mod i = 0 then s:=s+i;

           If a=s then exit(true);

                              exit(false);

End;

Begin

           Clrscr;

           Write('Nhap n: '); Readln(n);

           If SHH(n) then Write(n,' la so hoan hao')

           Else Write(n,' khong phai so hoan hao');

           Readln

End.