Отладка программы по поиску совершенных чисел

var n,m,i,:integer;
begin
     For n:=1 to 9999 do begin
     m:=0; i:=1;
          while i<n do begin
               If n mod i = 0 then
                  m:=m+i;
                  inc(i);
            end;
          If n=m then writeln(n)
     end;
     readln
end.

var n,m,i:integer;
begin
     n:=0;
     While n<9999 do
      Begin
          inc(n,2);m:=0;i:=1;
          while i<=n div 2 do begin
               If n mod i = 0 then
                  inc(m,i);
                  inc(i);
            end;
          If n=m then writeln(n)
      end;
     readln
end.

var n,m,i:integer;
begin
For n:=2 to 9999 do  {1 не совершенное, нет делителей отличных от самого числа}
 begin
  m:=1; {на 1 делятся все}
  i:=2; {начнем с 2}
  while i*i<n do {делим до корня из n}
   begin
    if n mod i = 0 then m:=m+i+n div i; {прибавим 2 делителя}
    inc(i);
   end;
  If n=m then writeln(n)
 end;
readln
end.

var
  i, n: longint;
  divider: integer;
 
  bin, bs: integer;
  bin_s: string;
  check, s: LongInt;
begin
  for bin := 1 to 14 do
  begin
    bin_s := '';
 
    for bs := 1 to bin do bin_s := '1' + bin_s + '0';
    bin_s := '1' + bin_s;
 
    check := 0;
    for i := 1 to length(bin_s) do check:= check * 2 + (ord(bin_s[i]) - ord('0'));
 
    s := 1;
    for divider := 2 to trunc(sqrt(check)) do
    begin
      if check mod divider = 0 then
        s := s + divider + (check div divider);
    end;
    if check = s then WriteLn(check);
  end;
end.

var n,m,i,:integer;
begin
     For n:=2 to 9999 do begin
     m:=1; i:=2;
          while i*i<n do begin
               If n mod i = 0 then
                  m:=m+i+n div i;
 
                  inc(i);
            end;
          If n=m then writeln(n)
     end;
     readln
end.