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

Спектр двузначных чисел 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.