uses crt;

var d,n,x: integer;

begin

clrscr;

write('Nhap x: '); readln(x);

d:=0;

write('Nhap n: '); readln(n);

if n mod x = 0 then d:=d+1;

while n<>0 do

begin

write('Nhap n: '); readln(n);

if n mod x = 0 then d:=d+1;

end;

if d=0 then write('Khong co boi cua x trong cac so da nhap') else write('Co ',d,' so la boi cua x');

readln

end.

uses crt;

var i, n, dem, x : integer;

begin

clrscr;

dem := 0; n := 1;

write('Nhap x = '); readln(x);

while n <> 0 do

    begin

        write('Nhap so nguyen n = '); readln(n);

        if (n mod x = 0) then

            dem := dem + 1;

    end;

write('Co ', dem ,' so boi cua x duoc nhap');

readln

end.