помогите плиз написать прогу тема процедуры и функции

[Vad56]

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

[ОДИНОЧЕСТВО В СЕТИ]

uses crt;
var n,i,k,j:longint;
procedure cob(p:longint);
var
 i,k,s,l,n,c,d:longint;
begin
 for i:=2 to p do
 begin
  k:=i;
  s:=0;
  for l:=1 to k-1 do
  if k mod l=0 then
   s:=s+l;
  if s=k then
   write(k, ' ');
 end;
end;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
    cob(i);
  readln;
end.

n >9000 вводить не советую!

Первое совершенное число — 6 (1 + 2 + 3 = 6), следующее — 28 (1 + 2 + 4 + 7 + 14 = 28 ). По мере того как натуральные числа возрастают, совершенные числа встречаются всё реже. Третье совершенное число — 496, четвёртое — 8128, пятое — 33 550 336, шестое — 8 589 869 056, затем 137438691328, 2305843008139952128, 26584559915698317446546926159538421 76, 19156194260823610729479337808430363 813099732154816 9216.

[Vad56]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

uses crt;
var n,i,k,j:longint;
procedure cob(p:longint);
var
 i,k,s,l,n,c,d:longint;
begin
 for i:=2 to p do
 begin
  k:=i;
  s:=0;
  for l:=1 to k-1 do
  if k mod l=0 then
   s:=s+l;
  if s=k then
   write(k, ' ');
 end;
end;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
    cob(i);
  readln;
end.

n >9000 вводить не советую!

Спасиб!!!!!!