program bibit; uses crt; var i,j,k,l,a,b,c,d,e,f:integer; x:array of integer; begin clrscr; write('masukkan nilai:'); read (a); read(b); for i:= 1 to b do begin readln(x); end; for j:= 1 to b do begin d:=0; for k:= 1 to a do begin d:=d+x; if d = a then begin c:= c+1; break; end; end; end; for j
