clrscr;
write('Zadaj od ktoreho cisla hladat dalsie dokonale cislo: ');
readln(x);
repeat
x := x + 1;
d := 1;
sd := 0;
while (d < (x / 2) + 1) do
begin
if ((x mod d) = 0) then
sd := sd + d;
d := d + 1;
end;
until (x = sd);
writeln('Dalsie dokonale cislo je ',x);
readln;