uses crt; var n,i:rea;; t,i:longint; begin t:=1; for i:=2 to trunc(sqrt(n)) do if sqr(i)=n then inc(t,i) else if n mod i=0 then inc(t,i+n div i); if t=n then exit(true) else exit(false); readln; end.
uses crt; var n,i:longint; function shh(n:longint):boolean; var t,i:longint; begin t:=1; for i:=2 to trunc(sqrt(n)) do if sqr(i)=n then inc(t,i) else if n mod i=0 then inc(t,i+n div i); if t=n then exit(true) else exit(false); end; begin clrscr; write('Nhap n=');readln(n); write('Cac so hoan hao tu 1->',n,': '); for i:=1 to n do if shh(i)=true then write(i,' '); readln; end.
