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

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

Даны три множества Х1={1,2,3,…, 20}, Х2={10, 11, 12,… , 30} и Х3={1, 3, 5,… , 19, 21). Сформировать множество Y=(Х1+Х2)*(Х1+ХЗ). Из которого выделить подмножество Y1 чисел, делящихся на 4 без остатка. На экран вывести множество Y и мощность множества YI.

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

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

uses crt;
var x1,x2,x3,y,y1:set of byte;
    i,k:byte;
begin
writeln('Множество Х1');
x1:=[];
for i:=1 to 20 do
 begin
  x1:=x1+[i];
  write(i:3);
 end;
writeln;
writeln('Множество Х2');
x2:=[];
for i:=10 to 30 do
 begin
  x2:=x2+[i];
  write(i:3);
 end;
writeln;
writeln('Множество Х3');
x3:=[];
for i:=1 to 11 do
 begin
  x1:=x1+[2*i-1];
  write(2*i-1:3);
 end;
writeln;
y:=(x1+x2)*(x1+x3);
writeln('Множество Y');
for i:=1 to 30 do
if i in y then write(i:3);
writeln;
writeln('Множество Y1');
y1:=[];
k:=0;
for i:=1 to 30 do
if (i in y)and(i mod 4=0) then
 begin
  write(i:3);
  k:=k+1;
 end;
writeln;
write('Мощность множества Y1=',k)
end.

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

Объявление переменных:
- x1, x2, x3, y, y1: множества целых чисел
- i, k: переменные типа byte для циклов и подсчета мощности множества
Заполнение множества X1:
- Объявляется пустое множество X1
- В цикле от 1 до 20 каждое число добавляется в X1
- Выводятся числа, добавляемые в множество X1
Заполнение множества X2:
- Аналогичным образом объявляется пустое множество X2
- В цикле от 10 до 30 каждое число добавляется в X2
- Выводятся числа, добавляемые в множество X2
Заполнение множества X3:
- Аналогичным образом объявляется пустое множество X3
- В цикле от 1 до 11 увеличивается число в два раза и вычитается один, и затем добавляется в множество X1
- Выводятся числа, добавляемые в множество X3
Вычисление множества Y:
- Множество Y формируется как объединение (x1 + x2) умноженное на (x1 + x3)
- Выводятся числа, принадлежащие множеству Y
Формирование множества Y1:
- Объявляется пустое множество Y1 и переменная k для подсчета мощности множества
- В цикле от 1 до 30 проверяется, принадлежит ли число множеству Y и делится ли на 4 без остатка
- Если условие выполняется, число добавляется в множество Y1, выводится и увеличивается счетчик k
Вывод мощности множества Y1:
- Выводится значение переменной k, которая содержит мощность множества Y1.