8.2. Определить значение переменной f после выполнения следующих фрагментов программы:
Var f : real ; i : integer;
f: = 1; i: =2;
while i > 1 do begin
f: = f + 1 / i;
i : = i -1;
end;