program Dokonale_cislo;

  (* Program, ktery spocita dokonale cislo vetsi nez zadane cislo i
     Pozn.: Dokonale cislo je prirozene cislo, ktere se rovna souctu
            vsech svych delitelu, krome sama sebe.
     Napr.: 6=1+2+3 => 6 je dokonale cislo *)

var dok,i,d,suma:integer;

begin
  Write('Zadej i: ');
  ReadLn(i);
  dok:=i;
  repeat
    dok:=dok+1;
    suma:=0;
    d:=1;
    while d<dok do
    begin
      if dok mod d=0 then suma:=suma+d;
      d:=d+1;
    end;
  until suma=dok;
  WriteLn ('Nejmensi dokonale cislo vetsi nez ',i,' je ',dok);
end.