2. Напишете программу на языке Pascal, которая в массиве из 19 элементов подсчитывает количество элементов меньше 100. Массив должен заполняться случайными значениями в интервале от 0 до 200

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var a:=ArrRandom(19,0,200); a.Println;  Writeln('k=',a.Where(x->x<100).Count)end.Тестовое решение127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108k=10