Написать программу, которая проверяет, находится ли введенное с клавиатуры число в массиве. Массив также должен вводится во время программы.

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.