Синформатикой работа с pascal . посчитать количество четных чисел в промежутке от 1 до n

Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Количество чётных чисел среди [1..',n,']: ',n div 2);
End.