в школу привезли компьютеры. к сожалению на всех учителей их не хватает. поэтому было решено провести лотерею. Для этого было выбрано n натуральных чисел а1,а2,аn и число k (1<k<n). Компьютеры получают те учителя номера кабинетов которых делятся ровно на k из этих чисел. администрация школы заинтересовало то, на сколько равномерно распределены компьютеры. помогите выяснить какое число учителей номера кабинетов которых принадлежит промежутку от а до b получат компьютеры

var a:array [1..100] of int;i,j,n,t,winners:integer;Begin    writeln("Введите кол-во делителей");    read(n);    writeln("Введите k");    read(k);    writeln("Введите делители");    for i := 1 to n do        read(a[i]);    for i:= a to b do begin        t:=0;        for j:= 1 to n do            if i mod a[j] = 0 then t:=t+1;        if t=k then winners:=winners+1;    end;    writeln(winners);End.