Проверить принадлежность числа множеству - Pascal

Формулировка задачи:

Заполнить множество пятнадцатью случайными целыми положительными числами, вывести множество на экран. Ввести с клавиатуры произвольное число и проверить, принадлежит ли оно получившемуся множеству.

Решение задачи: «Проверить принадлежность числа множеству»

Листинг программы

program pr;
 
var
  i, x, n: integer;
  m: set of integer;
 
begin
  randomize;
  m := [];
  for i := 1 to 15 do
  begin
    x := random(21);
    m := m + [x];
    write(x:3);
  end;
  writeln;
  writeln('Введите число');
  readln(n);
  if n in m then
    writeln('Принадлежит множеству ')
  else writeln('Не принадлежит множеству');
end.

Объяснение кода листинга программы

В программе объявлены три переменные: i, x и n, которые являются целочисленными типами данных.
Создается пустое множество m, которое является экземпляром типа set of integer.
С помощью цикла for происходит заполнение множества m случайными числами от 0 до 20.
После завершения цикла выводится сообщение о том, что введено число для проверки.
Пользователю предлагается ввести число n.
Число n сравнивается с элементами множества m.
Если число n присутствует в множестве m, то выводится сообщение Принадлежит множеству.
Если число n отсутствует в множестве m, то выводится сообщение Не принадлежит множеству.