В паскале написать программу: Вывести среднее арифметическое двузначных четных чисел

Диапазон двузначных чисел — 10..99.

В этих пределах выполняется цикл суммирования четных чисел и подсчет их количества.

program aver;

var n, s: integer;

begin

s:= 0;

n:= 0;

for i: integer:= 10 to 99 do

if i mod 2 = 0 then

begin

s:= s + i; //сумма четных чисел

n:= n + 1 //количество четных чисел

end;

writeln(\'Среднее арифметическое двузначных четных чисел: \', s / n)

end.