uses crt;

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

i, N, x, d : integer;

begin

clrscr;

write('Nhap so N va x = '); readln(N, x);

d := 0;

for i := 1 to N do

    begin

        write('Nhap so thu ', i ,' : '); readln(a[i]);

        if a[i] = x then d := d + 1;

    end;

writeln('Co ', d ,' phan tu bang x');

write('Tai cac vi tri : ');

for i := 1 to n do

    if a[i] = x then write(i,' ');

readln

end.

uses crt;
var n,i,x,d:integer;
    a:array[1..500]of integer;
Begin
    clrscr;
    write('n = ');readln(n);
    write('x = ');readln(x);
    for i:=1 to n do
    begin 
        write('a[',i,'] = ');readln(a[i]);
        if a[i]=x then d:=d+1;
    end;
    writeln('co ',d,' pt = ',x);
    write('vi tri: ');
    for i:=1 to n do
    if a[i]=x then write('a[',i,'] ');
    readln
End.