program kiem_tra;
uses crt;
type kmang:array[1..1000] of integer;
var A:kmang;
n,i,x:integer;
{---ham-kiem-tra---}
function kt(so:integer; A:kmang; n:integer):boolean;
var j:integer;
begin
kt:=true;
for j:=1 to n do
if A[j]=so then exit;
exit(false);
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
write('Nhap x: '); readln(x);
if kt(x,A,n) then write('Co') else write('Khong');
readln;
end.
