составить программу нахождения количества трехзначных чисел кратных 23

begin  var a := ArrRandom(50, 100, 999);  a.println;  writeln(a.Where(x -> (x mod 23 = 0)).Count);end.