Определить количество нечетных чисел заданных от 1 до n

Var a,n,k : integer; begin write('Введите n :'); readln(n); a:=1; repeat   k:=k+1;   a:=a+2; until a>n; writeln('Количество нечетных ',k); end. Тестовое решение: Введите n :10 Количество нечетных 5