Const
   max= 10; // Количество элементов в массиве
var
   a:array [1..max]
   i,m:integer;
begin
   write('Введите',max,'чисел');
   for i:=1 to max do
      read(a[i])
   write('Введите число');
   read(m);
   for i:=1 to max do
      begin
         if a[i] = m 
            then
               begin
                  write('Это число есть в массиве');
                  exit
               end;
      end;
write('Этого числа нет в массиве')
end.