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

Var s,i: integer;
Begin
s := 0 ;
For i := 1 To 10 Do
If i Mod 2 = 0 Then s := s +i;
Writeln ('Сумма четных чисел: ',s);
Writeln ('Ср. арифметическое: ',s/5);
End.
Решение:
for i:=1 To 10 Do {цикл}
Определяем четные числа командой i Mod 2 = 0.
Если числа четные, то они складываются и делятся на 5, так как в промежутке от 1 до 10 всего пять четных чисел.