В одномерном массиве из 12 элементов найти среднее арифметическое элементов в величина которых лежит за пределами диапазона от 11 до 75.Нужно решить через ABC.net. нужен тест и болок схема. Пожалуйста посчитайте , пожалуйста

program proizv;
var i, n, s:integer; a:array[1..12] of integer; sred:real;
begin
s:=0;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(86)+11;
writeln(a[i],' ');
s:=s+a[i];
end;
sred:=s/n;
writeln('sred=',sred);
end.