Найти среднее арифметическое четных чисел из промежутка от 1 до 10

Program vtkbox479; Название программыvar i,s: integer; Объявление переменныхbegin Начало программыfor i: =1 to 10 do Цикл от 1 до 10s: =s+i; Сумме присваиваем значение сумма + число iwriteln (s/i); Выводим сумма деленная на число iend. Конец программыП. С. Расписал, с тебя лучший ответ.