Дан массив из n элементов. Необходимо определить, есть ли в данном массиве элемент, равный заданному числу k

? Если есть, то вывести номер первого его вхождения.
Формат входных данных
С клавиатуры вводится натуральное число n (n≤100). На следующей строке через пробел вводятся n элементов массива. Все числа по модулю не превосходят 100. В последней строке вводится число k, (−100≤k≤100).

Формат выходных данных
В качестве ответа выведите индекс искомого элемента. Если такого элемента нет, то вывести 0.

vari, k, n, c: integer; a: array[1..10000]of integer;beginc := 0;readln(n); for i := 1 to n do read(a[i]); readln(k); for i := 1 to n do if (a[i] = k) then beginwrite(i); c := c + 1;end; if(c = 0) then write('0'); end.

var   i, k, n: integer;    a: array[1..10000]of integer;  begin   readln(n);    for i := 1 to n do read(a[i]);    readln(k);    for i := 1 to n do if (a[i] = k) then      begin       write(i);        exit;      end;    write('0');  end.