Заполните массив (23) случайными числами в интервале [0,100] и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50. На языке паскаль срочно! 15б. Спасибки

var a: array [1..23] of integer;i,s1,s2,k1,k2:integer;beginfor i:=1 to 23 dobegina[i]:=random (101);write (a[i],' ');if a[i]<50 thenbegins1:=s1+a[i];k1:=k1+1endelsebegins2:=s2+a[i];k2:=k2+1endend;writeln;writeln ('Среднее арифметическое < 50 ',s1/k1);writeln ('Среднее арифметическое >=50 ', s2/k2)end.

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(23,0,100); a.Println;  Println(a.Where(t->t<50).Average,a.Where(t->t>=50).Average)end.