so hoan hao

Var dem,i,n:integer; Function TU(x:integer):integer; var i,tong:integer; begin tong:=0; for i:=1 to x do if x mod i=0 then tong:=tong+i; TU:=tong-x; end; Begin Readln(n); dem:=0; For i:=1 to n do if i=TU(i) then inc(dem); Writeln('Co ',dem,' so hoan hao: '); For i:=1 to n do if i=TU(i) then Write(i:3); readln end.