Знающие Люди! ! помогите с Паскалем

Question

Помогите пожалуйста с Паскалем пишу поограмму, а она не выполняется. в чем ошибка? ? 
условие: вычислить s=1+1/2+1/3+..+1/n для 1/n^n>e, где е=10^-3. подсчитать количество слагаемых. 
program p1 
var 
s,n,e:double; 
Begin 
write('n=');readln(n); 
repeat 
s:=1+1/2+1/3+1/n; 
e:=0.003; 
until 
1/ln(n)*(n)>e; 
End.

Андрей · Accepted Answer

У тебя здесь зацикливание. 
Не хватает инкремента n. 
То есть добавь в цикл inc(n) или n:=n+1; 
+где у тебя вывод результата?

Кристина · Answer

program p1; 
var 
j,n,k: integer; 
s,e:real; 
Begin 
write('n=');readln(n); 
e:=0.003; 
s:=0;k:=0; 
for j:=1 to n do 
begin 
if 1/Power(j,j) >e then begin s:=s+1/j;inc(k);writeln('slog-',j); end; 
 
end; 
writeln('слогаемых- ',k); 
writeln('s=',s); 
 
End.