program phuongt;
uses crt;
var A: array[1..500] of longint;
i, k, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
write('Nhap k = '); readln(k);
for i:=1 to n do
begin
write('A[',i,'] = '); readln(A[i]);
end;
for i:=1 to n do if A[i]=k then
begin
writeln('k co thuoc day so A');
write('Vi tri cua k la: ',i);
end;
readln
end.