Зацикливание, Помогите Опции

[Artem7]

Вот написал программу для нахождения 4 совершенных чисел на отрезке, но почему то когда ввожу 1000 то происходит зацикливание (возможно и в других случаях просто не проверял больше)

Program sovershenie;
Var n,i,k,j,s:longint;
Begin
    write('Введите n= ');readln(n);
    While k<>4 do
    Begin
    For i:=2 to n do
    Begin
    s:=0;
    For j:=1 to n do
    if (i mod j = 0)and(i<>j) then s:=s+j;
    if s=i then begin writeln('Совершенное число = ',i);k:=k+1;end;
    end;
    end;
    readln;
End.

[IUnknown]

если например я введу число n равное 100 то там всего 2 совершенных числа то как тогда должна программа найти еще 2?

Да не должна она искать еще 2... Программа должна вывести МАКСИМУМ 4 совершенных числа (если четырех нет - то вывести ровно столько, сколько есть), а не из любого интервала высасывать 4 штуки, даже если их там совсем нет. Для интереса попробуй ввести n = 5, посмотрим, откуда тогда твой код найдет 4 совершенных числа.