第1题：完全数（每空3分，共12分）
如果一个正整数的所有小于它本身的因子之和等于该正整数，则该正整数称为完全数。比如6=1+2+3，于是6称为完全数；28=1+2+4+7+14，28也是完全数。
以下程序输入一个数n，输出1至n中的完全数的个数。请完善该程序。
program xx07_5;
var n,i,count:longint;

function WanQuanShu(k:longint):longint;
var i,sum:longint;
begin
   _____sum:=0______;
   for i:=1 to k div 2 do
if ____k mod i=0___ then 
sum:=sum+i;
   if sum=k then 
WanQuanShu:=__1___
   else
      WanQuanShu:=__0___;
end;

begin
   readln(n);
   count:=0;
   for i:=1 to n do
      count:=count+wanquanshu(i);
   writeln(count);
end.