Nhập số N. Kiểm tra xem nó có phải số hoàn thiện không?
(Số hoàn thiện là các ước cộng lại bằng chính nó)
Bước 1: Nhập vào n
Bước 2: Tính tổng S các số mà n chia hết trong khoảng [1..n-1]
Bước 3: Nếu S = n, số n là số hoàn thiện
program oken; uses crt; var n,s,i: longint; begin clrscr; write('Nhap 1 so: '); readln(n); for i:=1 to n-1 do s:=s+i; if s=n then writeln(n,' la so hoan thien.') else writeln(n,' khong phai la so hoan thien.'); readln; end.