Поиск в массиве

Поиск элемента, равного X
начало
конец
нет
да
нет
да
i:= 1
i:= i + 1
начать с 1-ого
перейти к следующему
‘Не нашли’
‘Есть!’

Поиск элемента в массиве
program qq;
const N=5;
var a:array[1..N] of integer;
i, X: integer;
begin
{ здесь надо заполнить массив }
i:=1;
while A[i]<>X do
i:=i+1;
if i <= N then
writeln('A[', i, ']=', X)
else writeln('Не нашли...');
end.
(i<=N) and (A[i]<>X)
do