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

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