Program Typlex271;
Uses crt;
Var i,n,sn: integer;
M:array[1..10000] of integer;
Begin
(*Nhập giá trị vào mảng*)
Writeln('Nhap so so hang trong mang'); Readln(n);
For i:=1 to n do readln(M[i]);
(*Kiem tra so*)
Writeln('Nhap so can kiem tra: '); Readln(sn);
For i:=1 to n do
If M[i]=sn then writeln('So do xuat hien o vi tri', i);
Readln
End.