Определите значение переменной S после выполнения следующего фрагмента программы: 
S:=0 ; i:=7 ;
While i>1 do begin
S:=S+i div 2;
i:=i-1 ;
end;