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

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