function result=mukemmelmi(n)
i=1;
sum=0;
while i<= n-1
  if mod(n,i)==0
      sum=sum+i;
  end
  i=i+1;
end
if n==sum
  result=1;
else 
  result=0;
end