Определить количество нечетных чисел заданных от 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