program SearchElement;
var
arr: array[1..100] of integer;
N, i, count, index: integer;
begin
// Вводим количество элементов в массиве
write('Введите количество элементов в массиве: ');
readln(N);

// Вводим элементы массива
writeln('Введите элементы массива:');
for i := 1 to N do
begin
read(arr[i]);
end;

// Ищем элемент, который равен количеству элементов, кратных 3
count := 0;
index := -1;
for i := 1 to N do
begin
if arr[i] mod 3 = 0 then
begin
count := count + 1;
if arr[i] = count then
begin
index := i;
break;
end;
end;
end;

// Выводим результат
if index <> -1 then
writeln('Номер первого элемента, который равен количеству элементов, кратных 3: ', index)
else
writeln('Такого элемента не найдено');

end.