program FindElementIndex;
var
arr: array[1..5] of Integer;
x, i, minIndex: Integer;
found: Boolean;
begin
// Ввод массива
writeln('Введите 5 целых чисел:');
for i := 1 to 5 do
readln(arr[i]);
// Ввод числа x
writeln('Введите число x:');
readln(x);
// Поиск элемента x в массиве
found := False;
minIndex := 6;
for i := 1 to 5 do
begin
if arr[i] = x then
begin
found := True;
if i < minIndex then
minIndex := i;
end;
end;
// Вывод результата
if found then
writeln('Наименьший номер элемента равного x: ', minIndex)
else
writeln('Элемента равного x в массиве нет');
end.

Пример работы программы:

Введите 5 целых чисел:
1
3
-2
5
1
Введите число x:
1
Наименьший номер элемента равного x: 1