дан массиа А, состоящий из 12 чисел, массив заполнить случайными числами в диапазоне от 0 до 100. Требуется подсчитать среднее арифметическое значение элементов массива. на экран вывести массив и среднее арифметическое

vara: array[1..12] of real;s: real;i: byte;beginfor i:=1 to 12 dobegina[i]:=random(101);write(a[i], ' ');s:=s+a[i];end;s:=s/12;writeln('');write('Среднее арифметическое: ', s);end.