var m,n,k,a:integer;
begin
writeln('请输入一个数，本程序会输出这个数以内的所有完全数');
k:=0;
readln(a);
writeln('这个数以内的所有完全数是：');
for m:=2 to a do
begin
k:=0;
for n:=1 to m-1 do
if m mod n=0 then k:=k+n;
if m=k then write(m,' ');
end;
readln;
end.