Программирование на паскале. Найти среднее арифметическое положительных чётных чисел натурального ряда до N. (Использование цикличного оператора for)

program zz1;

var n, b, r, i : integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число, до которого будем вычислять сумму

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем все натуральные числа до n

begin

if (i > 0) and (i mod 2 = 0) then r:=r + i; / / проверяем условие и вычисляем сумму чисел

b:=b + 1; / / подсчитываем количество слагаемых в сумме

end;

write (' среднее арифметическое = ', r/b); / / выводим ответ

end.