Составьте программу для расчёта значения количества нечётных трёхзначных чисел

var i,count:integer;begincount:=0;for i:=100 to 999 doif i mod 2<>0 then inc(count);writeln(count);end.