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

y=1Так как у тебя i=1 изначально, то цикл не будет выполняться(i>1)Следовательно если в программе идет вывод Y то он будет равен 1