Составить алгоритм и написать программу. получить 15 целых чисел на интервале (50; 150). сколько выпало трехзначных чисел.

// PascalABC.NET 3.2, сборка 1443 от 19.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,50,150); a.Println;
  Writeln('Трехзначных: ',a.Where(x->x>99).Count)
end.

Пример
132 53 120 100 143 148 125 78 150 141 50 138 72 109 59
Трехзначных: 10