Вывести на экран кратные трем элементы числового множества, которое является разностью двух других множеств - PascalABC.NET

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

Помогите пожалуйста!!!! Решить задачу на обработку множества. Вывести на экран кратные трем элементы числового множества, которое является разностью двух других множеств.

Решение задачи: «Вывести на экран кратные трем элементы числового множества, которое является разностью двух других множеств»

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

uses crt;
type mnoz=set of byte;
var a,b,c:mnoz;
    n,i:byte;
begin
clrscr;
writeln('Создайте множество A из чисел от 0 до 255, окончание ввода 0:');
a:=[];
repeat
 repeat
  readln(n);
 until n in [0..255];
 a:=a+[n];
until n=0;
writeln('Создайте множество B из чисел от 0 до 255, окончание ввода 0:');
b:=[];
repeat
 repeat
  readln(n);
 until n in [0..255];
 b:=b+[n];
until n=0;
clrscr;
writeln('Множество А:');
for i:=0 to 255 do
if i in a then write(i,' ');
writeln;
writeln;
writeln('Множество B:');
for i:=0 to 255 do
if i in b then write(i,' ');
c:=a-b;
writeln;
writeln('Множество C:');
for i:=0 to 255 do
if i in c then write(i,' ');
writeln;
writeln('Множество C, удовлетворяющее условию:');
for i:=0 to 255 do
if (i in c) and (i mod 3=0)  then write(i,' ');
 
readln;
end.

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

В начале программы объявляются переменные a, b, c, n и i типа mnoz (множество байтовых значений), а также используется модуль CRT (Console Resource Toolkit).
Пользователю предлагается создать два множества, A и B, из чисел от 0 до 255.
Множество A выводится на экран.
Множество B выводится на экран.
Вычисляется разность множеств a и b, результат сохраняется в переменной c.
Множество C выводится на экран.
Вычисляется множество C, удовлетворяющее условию (i mod 3=0), результат выводится на экран.
Программа ожидает ввода от пользователя для завершения работы.