множества

[dragun4ik]

нужно осуществить ввод элементов 2-х множеств s1 и s2 с клавиатуры и проверить принадлежит ли множество s3 их объединению
program set_;
uses crt;
type digits=set of 0..10;
var s1,s2,s3,s4,rez: digits;
i:integer;
begin
clrscr;

s3:=[3,3,7,7];
s4:=s1+s2;
writeln('ObEDIHEHIE MHO}I{ECTB s1 i s2: ');
readln;
end.
я чет сам не пойму как решить, кто знает как это сделать напишите