function hoanhao(n:longint):boolean; var x,dem,c:longint; begin dem:=0; for x:=1 to n-1 do if n mod x=0 then dem:=dem+x; if dem=n then exit(true); exit(false); end;
begin
write('Nhap n: '); readln(n);
if hoanhao(n) then write(' La so hoan hao ') else write('Khong phai so hoan hao');
