Определить значение переменной s после выполнения следующих операторов: s := 0; i := 1; while i > 1 do begin s:= s+ 1/i; i:= i-1 end;