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