Множества

[Tanya-Manya]

Написать программу, которая формирует множество Y=(Xl X2) - и вывести на печать элементы Y, которые делятся на число 3 без остатка. Проверить выполнение условия X3 Y. Дано: Х1={1,2,3,4,5,6}; X2={1,3,4,5,6}; X3={1,5}.

Подскажите,пожалуйста!
У меня получилось написать только это(без вывода на печать элементов Y)

program pr;
uses CRT;
var
i:integer;
c: char;
X1,X2,X3,Y,Y3: set of char;
begin
X1:= ['1'..'6'];
X2:= ['1','3','4','5','6'];
X3:= ['1','5'];
Y:=X1*X2;
begin
end;
//begin
    //readln(n);
    //for i:=1 to n do
         // if n mod i = 0 then write(i,' Элементы множества Y, которые делятся на 3 без остатка ');
    //readln;
//end;

  for c:='1' to '6' do
if c in Y3 then write(c, ' ' );
writeln;

if X3<=Y then write( 'X3 является подмножеством Y' )
else write( 'X3 не является подмножеством Y' );
end.

[Stilet]

set of char

Не правильно. Нужно целочисленное множество.

var X1,x2,x3,y: set of byte; i:byte;
begin
 x1:=[1,2,3,4,5];
 x2:=[1,3,4,5,6];
 x3:=[1,5];
 y:=x1+x2;
 for i:=0 to 255 do if i in y then write(i:3); writeln;
 if X3<=Y then write( 'X3 является подмножеством Y' )
else write( 'X3 не является подмножеством Y' );
end;

Примерно так.

[Tanya-Manya]

Спасибо за помощь!
Но в полученной программе всё равно не выводятся элементы множества Y, которые делятся на 3 без остатка.

[BDA]

write('Элементы множества Y, которые делятся на 3 без остатка: ');
for i:=0 to 255 do if (i in y) and (i mod 3 = 0) then write(i:3); writeln;

[Tanya-Manya]

Спасибо!Простите!))) Это был Pascal ABC!