const n=10;
var a:array[1..n] of integer;
i:integer; y:boolean;

function sov(k:integer):boolean;
var s,j:integer;
begin
 s:=1;
 for j:=2 to k div 2 do
  if k mod j = 0 then s:=s+j;
if s=k then sov:=true else sov:=false;
end;

begin
Randomize;
writeln('--a--');
for i:=1 to n do begin
 a[i]:=random(20);
 write(a[i]:3);
 end;
writeln;
y:=false;
for i:=1 to n do 
 if sov(a[i]) then begin write(a[i],' '); y:=true; end;
if not y then writeln('No');
end.

Пример работы программы:
--a--
  4  2 13  9  7 15  6 13 12 11
6