program Hello; uses crt; var n,s,i:integer; begin clrscr; Write('n= '); readln(n); for i:=1 to n-1 do if (n mod i = 0) then begin s:=s+i; Write(i,' '); end; if n = s then Write('| ', n, ' la so hoan chinh.'); if n<>s then Write('| ',n , ' khong la so hoan chinh') end.
program hoan_chinh; uses crt; var n,i,S:integer; begin clrscr; write('Nhap so: '); readln(n); S:=0; for i:=1 to n-1 do if n mod i=0 then begin write(i,' '); S:=S+i; end; writeln; writeln('=> Tong cac uoc la: ',S); if S=n then write('=> YES') else write('=> NO'); readln; end.
