Pascal:

program FindXInArray;
var
  arr: array of Integer;
  n, x, i, count: Integer;

begin
  write('Enter the number of elements in the array: ');
  readln(n);

  SetLength(arr, n);

  write('Enter the array elements: ');
  for i := 0 to n - 1 do
    read(arr[i]);

  write('Enter the value to check (x): ');
  readln(x);

  count := 0;

  for i := 0 to n - 1 do
  begin
    if arr[i] = x then
    begin
      writeln('Element ', x, ' found at position ', i + 1);
      count := count + 1;
    end;
  end;

  if count = 0 then
    writeln('No element found with value ', x);
end.
 

Python:

def find_x_in_array():
    n = int(input("Enter the number of elements in the array: "))
    arr = []

    for _ in range(n):
        arr.append(int(input("Enter an element: ")))

    x = int(input("Enter the value to check (x): "))

    count = 0

    for i in range(n):
        if arr[i] == x:
            print(f'Element {x} found at position {i + 1}')
            count += 1

    if count == 0:
        print(f'No element found with value {x}')

if __name__ == "__main__":
    find_x_in_array()