program so_hoan_chinh;
uses crt;
var n:integer;
      function HOANCHINH(a:integer):boolean;
      var i:integer;
            s:longint;
      begin
      HOANCHINH:=true;s:=0;
      for i:=1 to n do
      if n mod i=0 then s:=s+i;
      if s<>n then HOANCHINH:=false;
      end;
begin
clrscr;
writeln('nhap vao so tu nhien n: ');readln(n);
if HOANCHINH(n) then writeln(n,' la so hoan chinh')else
writeln(n,' khong la so hoan chinh');
readln
end.