Множества,паскаль

[edmynt]

Орагнизовать ввод элементов трех множеств A, B, C, D. Определить в программе являеться ли следующие утверждение верным:
множество А содержеться в В, множество В пересекаеться с С, а множества В и С содержаться в D. Привести значение элементов каждого множества для выполнения этого условия.

program laba6;
uses crt;
var
y:array [1..100] of byte;
A: set of byte;
B: set of byte;
C: set of byte;
D: set of 1..100;
x:boolean;
i,n:byte;
begin
clrscr;
A:=[];
B:=[];
C:=[];
Writeln ('Множество D=1..100');
writeln ('Введите количество элементом множества A');
readln (n);
writeln ('Введите ',n,' элементов A= ');
for i:=1 to n do
begin
readln (y[i]);
A:=A+[y[i]];
end;
writeln ('Введите количество элементов множества B');
readln (n);
writeln ('Введите ',n,' элементов B= ');
for i:=1 to n do
begin
readln(y[i]);
B:=B+[y[i]];
end;
writeln ('Введите количество элементов множества С');
readln (n);
writeln ('Введите ',n,' элементов C= ');
for i:=1 to n do
begin
readln(y[i]);
C:=C+[y[i]];
end;
x:=(['A'] <= ['B'])and(['B']<>['C'])and(['B','C']<=['D']);
writeln (x);
x:=['A'] <= ['B'];
writeln(x);
x:=['B']<> ['C'];
writeln (x);
x:=['B','C']<=['D'];
writeln (x);
Repeat until keypressed;
end.


находит токо что множество В с С пересикаються,а на остальное пишет что ложно. Исправьте плиз что не так...

[edmynt]

во,практичесли все уже заработало,
токо вопрос..как знак пересечения прировнять к логической переменной?

х:= В пересекаеться с С

[__STDC__]

во-первых, чтобы проверить вхождение одного мн-ва в другое используется оператор in.. нахождения пересечения исп-ся операция *
если пересечения нет - результатом операции будет пустое мн-во

т.е. условия такие примерно
множество А содержится в В - (A in B)
множество В пересекается с С - (A*B <> [])
множества В и С содержатся в D - (B in D) and (C in D) или (B+C in D)

[edmynt]

in проверяет ттолько число входит в множество или нет, а * выдает ошибку,впрочем также как и in

[edmynt]

урааа заработалооо,спасибо,но токо in всетаки лишние)))

[__STDC__]

ага, туплю.. in лишние.. но с * все верно