Сравнить два множества. Pascal

[MaxMelnikov]

Разработать функцию, которая для двух множеств положительных чисел определяет состояния:
совпадения (равенства), вхождения (>=,<=) или неравенства (несовпадения). Возвращаемые значения:
1 при совпадении, 2 при вхождении, 3 при несовпадении.

[Stilet]

Ну смысл примерно такой:

If [1,2,3]=[2,3] then ...

[MaxMelnikov]

Да смысл я понимаю. Даже думаю что смогу сравнить.
Но что-то не могу самого элементарного - это ввод этих двух множеств

[alex_fcsm]

const n=10;
var S,S1:set of 1..n;
    i:integer;

function Set_(a,b:set of 1..n):byte;
begin
if a=b then Set_:=1
   else if (a*b=a) or (a*b=b) then Set_:=2
        else Set_:=3;
end;
    
begin
s:=[];s1:=[];
for i:=1 to 10 do
  begin
   s:=s+[random(n)+1];
   s1:=s1+[random(n)+1];
  end;
writeln(Set_(s,s1));
end.