Заполните массив (15) случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. На языке паскаль, пж, помогите :)

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

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(15,0,100); a.Println;  a.Average.Printlnend.Пример65 11 46 1 81 74 17 45 5 79 92 10 39 41 4243.2