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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.