PROGRAM Capsohuunghi;
USES crt;
VAR x:LONGINT  ;
a:ARRAY[1..100] OF STRING;
FUNCTION TUT(x:LONGINT):LONGINT;
VAR i,y:LONGINT;
BEGIN             
y:=0;    
FOR i:=1 TO trunc(x/2) DO
IF x MOD i = 0 THEN y:= y + i ;
TUT:=y;
END;
BEGIN                                
clrscr; 
Writeln('Cac cap so Huu Nghi la : ');   
FOR x:=100 TO 10000 DO    
IF (x=TUT(TUT(x))) AND (x<>TUT(x)) AND (x<TUT(x))THEN  Write(x,' va ',TUT(x),' ; ');
readln;
END.