Số hoàn hảo

Số hoàn hảo.

Ví dụ:

• Số 6 có ước nhỏ hơn nó là 1,2,3. Tổng là 1+2+3=6 vậy 6 là số hh.
• Số 8 chia hết cho 1, 2, 4 tổng 1+2+4=7 → 8 không phải là số hh.
• Số 28 chia hết cho 1, 2,4, 7, 14 tổng 1+2+4+7+14=28 → 28 là số hh.

Viết chương trình nhập vào một số n từ bàn phím thông báo ra màn hình số đó có phải là số hoàn hảo hay không (yêu cầu dùng hàm).

PROGRAM SoHoanHao;
USES CRT;
VAR n:INTEGER;

FUNCTION KiemTra(x:INTEGER):BOOLEAN;
	VAR tam,i:INTEGER;
		BEGIN
			tam:=0; 
			FOR i:= 1 TO (x DIV 2) DO
			IF x MOD i = 0 THEN tam:=tam+i;
		IF tam = x THEN KiemTra:=TRUE
		Else KiemTra:=False;
	END;
	
BEGIN
	Clrscr;
	Write('Nhap so can kiem tra ');Readln(n);
	IF KiemTra(n) THEN 
		Writeln('So ',n,' la so hoan hao')
	ELSE
		Writeln('So ',n,' khong phai la so hoan hao');
	Readln;
END.