Определите значение переменной S после выполнения следующих оператоторов,пояснить:

S:=o ; i;=1 ;
while i > 1 do begin s:=s+1/i ; i;=i-1 ; end ;