Сформировать множество и выделите из него подмножество - Pascal ABC

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

Напишите программу, которая формирует множество Y=(X1 X2) и выделите из него подмножество Y1 чисел, которые являются четными числами.

Решение задачи: «Сформировать множество и выделите из него подмножество»

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

var
  x1, x2, y, y1: set of byte;
  i: byte;
  
procedure random_set(var s: set of byte; power: byte);
var i, x: byte;
begin
  for i := 1 to power do
  begin
    x := Random(15);
    Include(s, x);
    Write(x, ' ')
  end;
  WriteLn
end;
 
begin
  WriteLn('X1:');
  random_set(x1, 5);
  WriteLn('X2:');
  random_set(x2, 5);
  y := x1 - x2;
  WriteLn('Y:');
  for i := 0 to 255 do
    if i in y then
    begin
      if i mod 2 = 0 then Include(y1, i);
      Write(i, ' ')
    end;
  WriteLn;
  WriteLn('Y1:');
  for i := 0 to 255 do
    if i in y1 then Write(i, ' ');
end.

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

Создаются две переменные типа set of byte: x1 и x2.
Создается переменная типа byte: i.
Создается процедура random_set, которая принимает в качестве параметров переменную типа set of byte (s) и число power (в данном случае 5).
Внутри процедуры создается цикл for, который выполняется power раз.
На каждой итерации цикла генерируется случайное число x с помощью функции Random(15) и включается в множество s с помощью функции Include.
Выводится значение x.
Выводится символ пробела.
Конец цикла.
Выводится строка X1:.
Вызывается процедура random_set для переменной x1 со значением 5.
Выводится строка X2:.
Вызывается процедура random_set для переменной x2 со значением 5.
Создается переменная y типа set of byte, которая будет содержать все числа из x1 и x2.
Вычисляется разница между x1 и x2 и сохраняется в переменную y.
Выводится строка Y:.
Для каждого числа от 0 до 255 выполняется следующая последовательность действий:
- Проверяется, содержится ли число в y.
- Если число содержится в y, то проверяется, является ли оно четным числом.
- Если число четное, то оно включается в y1 с помощью функции Include.
- Выводится число.
Выводится строка Y1:.
Для каждого числа от 0 до 255 выполняется следующая последовательность действий:
- Проверяется, содержится ли число в y1.
- Если число содержится в y1, то оно выводится.
Конец программы.