write( 'nhap x '); readln(x);

for i:=1 to 10 do { cho chạy từ 1 - 10}
  if x = a[i] then write(i) { kiểm tra xem phần tử nào = x nếu bằng thì viết i là vị trí }
readln;
end.