Программа на множества

[wanted6610]

Ребята, помогите пожалуйста с программой на множества.
Нужно проверить включение множества слиянием ( является ли мн-во А подмножеством мн-ва B)
Сдавать уже в пятницу, а я даже не знаю с чего начать.
Надеюсь на вашу помощь

[Stilet]

А о каких множествах идет речь?
Ввод множества показать можешь?

[wanted6610]

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

[Stilet]

type
 Number=set of 1..31;
var
 e,q,w:Number; i:integer;
begin
 q:=[1,2,3,4]; w:=[3,4,5,6,7];
 e:=q*w;
 for i:=1 to 31 do if i in e then write(i);
 readln;
end.

Если не то тогда выясняй у препода что нужно.

Кстати, хреново гуглишь: http://yandex.ua/yandsearch?text=Pas...2014&numdoc=50

[Аватар]

Если речь действительно о множествах, а не о массивах, то входимость одного множества в другое того же типа можно и так проверить для делфи
для паскаля вообще-то не уверен

if a+b=a then B входит в A else B не входит в A
или
if a*b=b then B входит в A else B не входит в A