Совершенные числа

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i:integer;
  fl:boolean;
{ôóíêöèÿ ïðîâåðêè íà ñîâåðøåííîå ÷èñëî}
function Pr(n:longint):boolean;
var
  i,s:longint;
begin
  s:=0;
  for i:=1 to n div 2 do {ñìîòðèì èíòåðâàë ÷èñåë}
    if n mod i = 0 then
      s:=s+i;{åñëè äåëèòñÿ áåç îñòàòêà, ñóììèðóåì}
  if n=s then
    Pr:=true
  else
    Pr:=false
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  fl:=false;
  writeln('Ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(100)+1;
    if Pr(a[i]) then
    begin
      textcolor(4);
      fl:=true
    end
    else
      textcolor(0);
    write(a[i]:2,' ')
  end;
  writeln(']');
  if fl then
    writeln('Ñðåäè ýëåìåíòîâ ìàññèâà åñòü ñîâåðøåííûå ÷èñëà')
  else
    writeln('Ñðåäè ýëåìåíòîâ ìàññèâà ÍÅÒ ñîâåðøåííûõ ÷èñåë!')
end.

uses crt;
function Sover(n:longint):boolean;
var i,k,j:longint;
begin
k:=0;
for j:=1 to n-1 do
if n mod j=0 then k:=k+j;
if k=n then Sover:=true
else Sover:=false;
end;
var a:array[1..100] of integer;
    n,i,k:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
k:=0;
for i:=1 to n do
 begin
  write(a[i],' ');
  if Sover(a[i]) then k:=1;
 end;
writeln;
if k=1 then write('Yes!')
else write('No!');
readln
end.

uses crt;
var a:array[1..100] of integer;
    n,i,j,k,p:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
k:=0;
for i:=1 to n do
 begin
  write(a[i],' ');
  p:=0;
  for j:=1 to a[i]-1 do
  if a[i] mod j=0 then p:=p+j;
  if p=a[i] then k:=1;
 end;
writeln;
if k=1 then write('Yes!')
else write('No!');
readln
end.

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,s,k:integer;
  fl,fl2:boolean;
{основная программа}
begin
  fl:=false;
  writeln('Массив:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(100)+1;
    {вот то что надо было вставить}
    s:=0;
    for k:=1 to a[i] div 2 do {смотрим интервал чисел}
    if a[i] mod k = 0 then
      inc(s,k);{если делится без остатка, суммируем}
    fl2:=(a[i]=s);
    {дальше точно также}
    if fl2 then
    begin
      textcolor(4);
      fl:=true
    end
    else
      textcolor(0);
    write(a[i]:2,' ')
  end;
  writeln(']');
  if fl then
    writeln('Среди элементов массива есть совершенные числа')
  else
    writeln('Среди элементов массива НЕТ совершенных чисел!')
end.