Программка, дозволяющая найти, содержит ли массив данное число x, если да,

const n=10;

var a:array [1..n] of integer;

i,x:integer;

begin

write('Введите число: ');

readln (x);

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

write(a[i]:2,' ')

end;

writeln;

for i:=1 to n do

if a[i]=x then writeln('Массив содержит число ',x,' номер этого элемента ',i)

end.