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

[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.

[TarasBer]

> Спасибо но я замутил вот так

Фигню ты замутил. Зависон на случай, если чисел до эн меньше 4, никуда не делся.