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

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,0,100); a.Println;
  a.Average.Println
end.

Пример
65 11 46 1 81 74 17 45 5 79 92 10 39 41 42
43.2

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

1) А В  В(отр с черточкой)   В(отр)vA    F
    0  0  1                                   1        0
    0  1  0                                   0        0
    1  0  1                                   1        1
    1  1  0                                   1        1 

2)  ABC AVB CVB  F
     0 0 0  0       0     0
     0 0 1  0       1     0
     0 1 0  1       1     1  
     1 0 0  1       0     0
     0 1 1  1       1     1
     1 0 1  1       1     1
     1 1 0  1       1     1    
     1 1 1  1       1     1 

1) А В  В(отр с черточкой)   В(отр)vA    F
    0  0  1                                   1        0
    0  1  0                                   0        0
    1  0  1                                   1        1
    1  1  0                                   1        1 

2)  ABC AVB CVB  F
     0 0 0  0       0     0
     0 0 1  0       1     0
     0 1 0  1       1     1  
     1 0 0  1       0     0
     0 1 1  1       1     1
     1 0 1  1       1     1
     1 1 0  1       1     1    
     1 1 1  1       1     1