В школу привезли компьютеры

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.