Определить является ли заданное натуральное число совершенным

Program A;
Var
  a: Word;
 
function summa(a:Word):Word;
 var
   i: Word;
 begin
   summa:=0;
   for i:=1 to a-1 do
     if (a mod i=0) then summa:=summa+i;
 end;
 
Begin
  Write('A='); Readln(a);
  if a=summa(a) then Writeln('Совершенное число')
  else Writeln('Нет');
End.

for i:=1 to a-1 do

for i:=1 to a div 2 do

Var a,sum:integer; i:shortint;
begin
repeat
if ((a=0) or (a<0)) and (i>0)
then Writeln('Ïîâòîðèòå ïîïûòêó')
else
Writeln('×èñëî ðàâíî.....(íó âû äîãàäàëèñü ÷òî äåëàòü íàäî)');
readln(a);
i:=i+1;
until a>0;
sum:=0;
for i:=1 to a div 2 do
begin if a mod 2=0 then sum:=sum+i; end;
if sum=a then
Writeln('Â ýòîò ðàç âàì ïîâåçëî')
else Writeln('Íå ñóäüáà');
readln;
end.

Var
 j,r,i:longint;
 t,t2:boolean;
begin
repeat
 readln(r);
 if r<=0 then write('Íó ñêàçàíî æå íàòóðàëüíîå ââåäè: ')
until r>0;
if r<5 then write('Íåò ýòî íå ñîâåðøåííîå ÷èñëî.')
else
begin
 t2:=false;
 for i:=2 to r do
 begin
  t:=false;
  for j:=2 to round(sqrt((exp(ln(2)*i)-1))) do
  if round(exp(ln(2)*i)-1) mod j=0 then
  begin
   t:=true;
   break
  end;
  if i>13 then break;
  if not(t) and (round(exp(ln(2)*(i-1))*(exp(ln(2)*i)-1))=r) then
  begin
   t2:=true;
   break
  end
 end;
 if t2 then write('Äà ÷èñëî ÿâëÿåòñÿ ÑÎÂÅÐØÅÍÍÛÌ')
 else write('Íåò')
end;
readln
end.

var a:array[1..10] of int64;
    n,m:int64;
    i:longint;
    f:boolean;
begin
  assign(input,'input.txt');reset(input);
  assign(output,'output.txt');rewrite(output);
read(n,m);
a[1]:=6;
a[2]:=28;
a[3]:=496;
a[4]:=8128;
a[5]:=33550336;
a[6]:=8589869056;
a[7]:=137438691328;
a[8]:=2305843008139952128;
f:=false;
for i:=1 to 8 do
  if a[i]=n then begin
 writeln('YES');
END.