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