Составить программы с массивами. Паскаль.
1.Дан массив из 12-ти элементов. Найти его среднее значение, определить, сколько чисел в массиве меньше его среднего значения и вывести их на экран. Интервал(0,50)
2.Из массива из 13 элементов вывести на экран все числа, меньшие 50, и определить, сколько таких чисел в данном массиве. Интервал(0,100)

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(12,0,50); a.Println;  var m:=a.Average;  Write('Элементы, меньшие среднего значения: ');  Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)end.Пример34 12 5 35 29 15 23 22 41 27 12 36Элементы, меньшие среднего значения: 12 5 15 23 22 12Таких элементов 6begin  var a:=ArrRandom(13,0,100); a.Println;  Write('Элементы, меньшие 50: ');  Writeln('Таких элементов ',a.Where(x->x<50).Println.Count)end.Пример25 17 68 71 27 37 83 32 63 87 29 12 34Элементы, меньшие 50: 25 17 27 37 32 29 12 34Таких элементов 8