Ошибка в программе

[wanted6610]

Проверить включение множества слиянием (является ли множество А подмножеством множества B)

program lalal;
uses crt;
    type
      mnoj= set of integer;
    var
      i,j,n,n1,n2,p:integer;
      s1,s2:mnoj;
      begin
      clrscr;
      writeln('Введите количество элементов множества A');
      readln(j);
      writeln('Введите количество элементов множества B');
      readln(n);
       for i:=1 to n1 do
    begin
      write(n1,':');
      readln(s1[i]);
    end;
   for i:=1 to n2 do
    begin
      write(n2,':');
      readln(s2[i]);
    end;
      if s1<=s2 then
        writeln('Множество A входит в множество B');
      if s1<>s2 then
        writeln('Множество A не входит в множество B');
    end.

readln(s1[i]); выдает ошибку нет индексного свойства по умолчанию для типа mnoj

[newerow1989]

s1[i]

а массивом нельзя?

[wanted6610]

а как записать массивом это?

[newerow1989]

var
 mnoj: array of integer;
 s1,s2:mnoj;

[Stilet]

выдает ошибку нет индексного свойства по умолчанию для типа mnoj

С множествами так поступать нельзя. Добавление элемента в множество делается либо процедурой include() либо оператором +, если это константа.
И проверка должна быть не через s[i] а через i in s

[Аватар]

set of integer нельзя. Множество паскаля ограничено 255 элементами.
var m: set of Byte в самый раз.

Включить сложением: m:=m+[25] или m:=m+[b], где b byte или m:=m+[3..5]

Множество А является подмножеством множества B если: A+B=B или A*B=A
Можно и in применить для проверки входимости одного множества во второе, но слишком кучеряво это будет и не эффективно

[Stilet]

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

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

P.S. Хотя по-моему автору уже не интересно...

[wanted6610]

автору интересно, только он общается с паскалем на вы, и не понимает как ему исправить ошибку.
ребят, можете исправить программу и написать готовую версию?

[Аватар]

var i,j,k: Byte;
    a,b: set of Byte;
begin
  writeln('Введите количество элементов множества A');
  readln(j);
  writeln('Введите элементы множества A');
  for i:=1 to j do begin write(':'); readln(k); a:=a+[k]; end;
  writeln('Введите количество элементов множества B');
  readln(j);
  writeln('Введите элементы множества B');
  for i:=1 to j do begin write(':'); readln(k); b:=b+[k]; end;
  if a+b=b then writeln('Множество A входит в множество B')
           else writeln('Множество A не входит в множество B');
  readln;
end.

Паскаля нет, для консоли делфи как раз оно