16. Чему будет равно значение переменной y после выполнения фрагмента программы? не понятно.
y:=1; i:=1;
while i>1 do
begin
y:=y+1/I; i:=i-1;
end;