uses crt;
var n,i,c,x:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
write('nhap vao 1 so bat ky:');readln(x);
c:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if x=a[i] then c:=c+1;
end;
if c>0 then write('so bat ky vua nhap co trong day so')

else wrtie('so bat ky vua nhap ko co trong day so');
readln;
end.

(Mong dc 5*+hay nhất)

Begin Hoidap;

uses crt;
var n, i, c, x: integer;
a: array[1..100]of integer;
begin
clrscr;
write('nhap vao so phan tu:');readln(n);
write('nhap vao mot so bat ki:');readln(x);
c:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(A[i]);
 if x=A[i] then c:=c+1;
end;
if c>0 then write('so vua nhap co trong day so')

else wrtie('so vua nhap khong co trong day so');
readln;
end.