Дано множество целых чисел, выделить множество чисел кратных 3 и 4 - Pascal

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

Дано множество целых чисел, выделить: 1) Множество чисел кратных 3; 2) Множество чисел кратных 4; 3) Множество чисел кратных 3 и 4

Решение задачи: «Дано множество целых чисел, выделить множество чисел кратных 3 и 4»

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

var
  m3, m4, m34: set of byte;
  i, j, s: byte;
 
begin
  m3 := [];
  m4 := [];
  m34 := [];
  for i := 1 to 255 do
  begin
    s := 0;
    j := i;
    while j > 0 do
    begin
      s := s + j mod 10;
      j := j div 10;
    end;
    if s mod 3 = 0 then 
      m3 := m3 + [i];
  end;
  writeln('Множество кратных 3: ');
  for i := 1 to 255 do
    if i in m3 then
      write(i:4);
  
  writeln;
  for i := 1 to 255 do
    if i mod 4 = 0 then 
      m4 := m4 + [i];
  
  writeln('Множество кратных 4: ');
  for j := 1 to 255 do
    if j in m4 then
      write(j:4);
  writeln;    
  
  m34 := m3 * m4;
  writeln('Множество кратных 3 и 4: ');
  for j := 1 to 255 do
    if j in m34 then
      write(j:4);
end.

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

Объявляются переменные:
- m3, m4, m34 - множества целых чисел, представленных в виде массивов байт
- i, j, s - целочисленные переменные
Инициализируются множества:
- m3 и m4 устанавливаются как пустые множества
- m34 также устанавливается как пустое множество
Цикл от 1 до 255 выполняется для переменной i:
- Инициализируется переменная s с нулевым значением
- Переменная j устанавливается равной i
- Анализируется цифры числа j, суммируются с помощью цикла while и записываются в переменную s
- Если сумма цифр числа s делится на 3 без остатка, то число добавляется в множество m3
Выводится множество кратных 3.
Цикл от 1 до 255 выполняется для переменной i:
- Если число i делится на 4 без остатка, то оно добавляется в множество m4
Выводится множество кратных 4.
Переменной m34 присваивается пересечение множеств m3 и m4 с использованием операции умножения.
Выводится множество кратных и 3 и 4.