Program FNG;
Uses crt;
Var A: array[1..100] of longint;
    n,i,k: longint;
    s: int64;
Begin
        Clrscr;
        Write('Nhap n, k: '); Readln(n,k);
        s:=1;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If k mod A[i] = 0 then s:=s*A[i];
        End;

        Write('S = ',s);
        Readln
End.

uses crt;

var a: array[1..100] of integer;

i,n,k: integer;

tt: word;

begin

clrscr;

tt:=1;

write (‘nhap N: ‘);  readln (n);

write (‘nhap K: ‘);  readln (k);

for i:=1 to n do

begin

write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

if k mod a[i]=0 then tt:=tt*a[i];

end;

writeln (‘tich cua cac phan tu la uoc cua ‘,k,’ la: ‘,tt);

readln;

end.