uses crt;
var n,i,x,j,tg,d: integer;
    a,b: array[1..100] of integer;
begin
clrscr;
    write('Nhap n: '); readln(n);
    write('Nhap x: '); readln(x);
    for i:=1 to n do
    begin
        write('a[',i,']=');
        readln(a[i]);
        if a[i]=x then b[i]:=i;
    end;
    for i:=1 to n do
    for j:=1 to i do if b[i]<b[j] then
    begin
        tg:=b[i];
        b[i]:=b[j];
        b[j]:=tg;
    end;
    d:=0;
    for i:=1 to n do if b[i]=0 then d:=d+1 else b[i-d]:=b[i];
    for i:=1 to n do write(b[i]:3);
    write('Vi tri dau tien cua x trong day la: ',b[1]);
    readln
end.

uses crt;

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

i,n,x,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

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

for i:=1 to n do 

  if a[i]=x then 

begin

writeln(i);

end;

dem:=0;

for i:=1 to n do 

  if a[i]=x then inc(dem);

if dem>0 then writeln('Co ',dem,' phan tu bang ',x)

else writeln('Khong co phan tu nao bang ',x);

readln;

end.