uses crt;
var A:array [1 .. 100] of integer;
    i,x,d,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Nhap x:'); readln(x);
d:=0;
for i := 1 to n do
    begin
        write('A[', i ,'] = '); 
        readln(A[i]);
    end;
for i:=1 to n do 
if x=A[i] then d:=d+1;
if d=1 then write('x co trong day ') else write('x khong co trong day');
readln
end.

uses crt;

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

    i, n, x, k : integer;

begin

clrscr;

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

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

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

k := 0;

for i := 1 to n do

    if A[i] = x then k := 1;

if k = 0 then write('So nguyen x khong co trong mang')

else write('So nguyen x co trong mang');

readln

end.