10 CLS
20 INPUT"Ka�a kadar Olan M�kemmel Say�lar Ara�t�r�ls�n";N
30 FOR I=2 TO N
40 T=0
50 FOR J=1 TO INT(I/2)
60 IF I MOD(J)=0 THEN T=T+J
70 NEXT J
80 IF T=I THEN PRINT I
90 NEXT I