Процедуры и функции. Делфи7.

[Fatalita]

Хорошо, я попробую себя перебороть.

[Rin]

У вас значение "совершенного числа" совпадает со значением в Википедии, и код, который я привел не для вас.
Вот программа для вас:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;
var
    A: array[1..100] of Int64;
    max_k,k,n,i: Integer;

function number_perfect(var n:int64):boolean;
var i,k:int64;
begin
   result:=false;
   if n<6 then exit;
   if n=6 then
   begin
     result:=true;
     exit;
   end;
   k:=1;
   i:=3;
   repeat
     k:=k+round(power(i,3));// возводим в кубическую степень
     i:=i+2;
   until k>=n;
   if n=k then result:=true;
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('n=');
  Readln(n);
  k:=0;
  max_k:=0;
  for i:=1 to n do
    begin
      write('A[',i,']=');
      Readln(A[i]);
      if number_perfect(A[i]) then// если число совершенное, то
      begin
        k:=k+1;// увеличить счетчик текущей последовательности сов.чисел
        if k>max_k then// если счетчик текущей последовательности больше макс.
        // найденной последовательности, то
        max_k:=k;
      end
      else// иначе
      k:=0;// сбросить в ноль счетчик текущ. последовательности
    end;
  // выводим максим. найденную последовательность
  writeln('maximum sequence perfect number=',max_k);
  readln;
end.

Вычисление совершенных чисел основано на 2 утвержднениях из Википедии:
1)Нечётных совершенных чисел до сих пор не обнаружено, однако не доказано и то, что их не существует. Неизвестно также, бесконечно ли множество всех совершенных чисел.
2)Все чётные совершенные числа (кроме 6) являются суммой кубов последовательных нечётных натуральных чисел: (1^3+3^3+5^3+........).

[Fatalita]

Благодарю ^^

[Rin]

Mad_Cat, твоя функция более лаконична, но работать будет медленнее.
ТС, можете использовать любую функцию нахождения сов.числа, а дальше использовать то, что написано в теле программы.