Kol4

Program LiczbyDoskonale;

function sumaDzielnikow(i : integer) : integer;
var j : integer;
begin
  sumaDzielnikow := 0;
  for j := 1 to Round(i/2) do
  begin
    if (i mod j) = 0 then sumaDzielnikow := sumaDzielnikow + j;
  end;
end;

var
  i : integer;

begin
  for i := 1 to 10000 do if sumaDzielnikow(i) = i then Write(i, '   ');
  Readln(i);
end.