Автор - ekrkeer
//PascalABC.NET 3.4.2
var
a, b: integer;
begin
var ar := arrrandom(10, -10, 10).Println;
write('Введите a и b:');
read(a, b);
ar.Where(x -> x in [a..b]).Count.Print;
end.