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

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.