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