Определить и программно заполнить одномерный массив , состоящий из 10 элементов . вычислить количество элементов массива , принадлежащих промежутку от a до b , которые затрагиваются у пользователя, результат вывести на экран.

const n = 10; var a, b, i, k : integer;     mas : array[1..n] of integer; Begin     read(a, b);     randomize();     k := 0;     for i := 1 to n do begin         mas[i] := random(50);         if (mas[i] >= a) and (mas[i] <= b) then             k := k + 1;     end;     writeln(k); End.