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

Диапазон двузначных чисел - 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.