Напечатать общие элементы множеств и количество таких элементов - Pascal ABC

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

Пусть заданы множество А и множество В целых чисел, напечатать общие элементы этих множеств и количество таких элементов.

Решение задачи: «Напечатать общие элементы множеств и количество таких элементов»

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

var
  i, count: integer;
  set1, set2, set3: set of integer;
 
begin
  set1 := [1, 2, 3];
  set2 := [2, 3, 4];
  set3 := set1 * set2;
  writeln('Общие элементы:');
  for i := 0 to 255 do
    if i in set3 then 
    begin
      write(i, ' ');
      inc(count);
    end;
  writeln;
  writeln('Их количество = ', count);
  readln;
end.

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

В начале кода объявляются переменные: i, count и три множества set1, set2 и set3 типа set of integer.
Затем присваиваются значения этим переменным: set1 := [1, 2, 3], set2 := [2, 3, 4] и set3 := set1 * set2.
Выводится сообщение Общие элементы: и начинается цикл for, который будет выполняться 260 раз (от 0 до 255 включительно).
Внутри цикла проверяется, содержится ли текущий элемент в set3 с помощью оператора in. Если да, то выполняется следующая часть условия и выводится значение элемента с помощью функции write, после чего увеличивается счетчик count на единицу с помощью функции inc.
После выполнения цикла выводится сообщение Их количество = и значение переменной count.
Конец программы.