Помогите,пожалуйста!!!!​

Question

Помогите,пожалуйста!!!!​

---

Answer 1

s:=1;

n:=1;

i:= 1;

while i <> 4 do begin  

 s:= s+1/n;

 n:= n+2;

 i:= i + 1;

end;