Требуется выяснить какое число будет выведено в результате выполнения следующей программы: var n, s :integer; begin n:=0; s:=1000; while s>=100 do begin s:=s-2; n:=n+1; end; write(n) end.