Запишите на языке Паскаль программу решения задачи номер 34 к § 3.4. Считайте рост претендента в команду случайным числом из диапозона от 150 до 200 см, а число претендентов n=50. (Номер задачи 34 - Объявлен набор в школьную баскетбольную команду. Извесьен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.

//PascalABC.NET 3.1 сборка 1200const    n = 50;    min = 150;    max = 200;    needed = 170;begin    var a := ArrRandom(n, min, max);    Writeln('Всего претендентов ', a.Where(x -> x >= needed).Count);end.