Для заданного числа Н(1<Н<10000) написать программу, которая находит все совершенные числа, меньшие Н

var
  n, k, s, h: integer;
 
begin
  readln(h);
  for n := 2 to h do
    begin
      s := 1;
      for k := 2 to n div 2 do
        if n mod k = 0 then s := s + k;
      if s = n then write(n, ' ')
    end
end.

var
  n, k, s, h: integer;
  found: boolean;
 
begin
  found := false;
  write('Поиск совершенных чисел. До какого числа искать? ');
  readln(h);
  for n := 2 to h do
    begin
      s := 1;
      for k := 2 to n div 2 do
        if n mod k = 0 then s := s + k;
      if s = n
        then begin
          write(n, ' ');
          found := true
        end
    end;
  writeln;
  writeln('Поиск окончен');
  if not found then write('Совершенных чисел до числа ', h, ' нет')
end.

var
  n, k, s, h: integer;
  found: boolean;
 
begin
  found := false;
  n := 1; {n=2^(1-1)*(2^1-1), первое число вида 2^(p-1)*(2^p-1)}
  write('Поиск совершенных чисел. До какого числа искать? ');
  readln(h);
  repeat
    s := 0;
    for k := 1 to n div 2 do
      if n mod k = 0 then s := s + k;
    if s = n
      then begin
        write(n, ' ');
        found := true
      end;
    n := n shl 1 or n shl 2 {следующее число вида 2^(p-1)*(2^p-1)}
  until (n > h) or (n <= 0);
  writeln;
  writeln('Поиск окончен');
  if not found then write('Совершенных чисел до числа ', h, ' нет')
end.

var
  n, k, p, h: integer;
  found, prime: boolean;
 
begin
  found := false;
  prime := true;
  write('Поиск совершенных чисел. До какого числа искать? ');
  readln(h);
  p := 1;
  repeat
    inc(p);
    n := 1 shl p - 1; {2^p-1}
    for k := 2 to trunc(sqrt(n)) do
      begin
        prime := n mod k <> 0;
        if not prime then break
      end;
    n := ((n + 1) shr 1) * n; {число вида 2^(p-1)*(2^p-1)}
    if prime and (n <= h) and (n > 0)
      then begin
        write(n, ' ');
        found := true
      end
  until (n >= h) or (n <= 0);
  writeln;
  writeln('Поиск окончен');
  if not found then write('Совершенных чисел до числа ', h, ' нет')
end.