Найти количество нечетных чисел от 1 до n

var s,n: integer; begin read(n); s:=0; for var i := 1 to n do if i mod 2 <> 0 then s:=s+1; writeln(s); end.