Пример программы на Pascal:

program FindElement;
var
arr: array [1..10] of integer;
i: integer;
begin
writeln('Введите элементы массива:');
for i := 1 to 10 do
begin
write('arr[', i, '] = ');
readln(arr[i]);
end;
writeln('Номера элементов, равных 15:');
for i := 1 to 10 do
begin
if arr[i] = 15 then
begin
writeln('arr[', i, '] = 15');
end;
end;
readln;
end.

Эта программа сначала запрашивает у пользователя ввод значений для массива размерностью 10. Затем программа выводит номера элементов массива, равных 15.