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

[BDA]

Насчет файловой переменной согласен. Никогда не сталкивался с таким способом связи с экраном , поэтому неправильно понял ваш код.
Насчет условия уверен:

Объединением двух множеств A и B называется множество A B, состоящее из тех и только тех элементов, которые принадлежат хотя бы одному из множеств A или B.

(http://webmath.exponenta.ru/s/c/alge...h3/theory.html)

[Paster Fob]

Сообщение от BDA

Насчет файловой переменной согласен. Никогда не сталкивался с таким способом связи с экраном , поэтому неправильно понял ваш код.
Насчет условия уверен: (http://webmath.exponenta.ru/s/c/alge...h3/theory.html)

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

[Paster Fob]

вот ещё раз подправил код,надеюсь что всё.

type tset=set of byte;

procedure readset(var afile:text;var aset:tset);
var n:byte;
begin
  while not eoln(afile) do begin
    read(afile,n);
    aset:=aset+[n];
  end;
  readln(afile);
end;

procedure writeset(var afile:text;var aset:tset);
var n:byte;
begin
  for n:=1 to 255 do
    if n in aset then
      write(afile,n:4);
  writeln(afile);
end;

var sn,sen:tset;
    f:text;

begin
  assign(f,'');
  reset(f);
  sn:=[1,17,2,27,3,37,4,47,5,57,6,67,7,77];
  sen:=[];
  readset(f,sen);
  close(f);
  assign(f,'');
  rewrite(f);
  writeln('1-ое множество');
  writeset(f,sn);
  writeln('2-ое множество');
  writeset(f,sen);
  writeln('объеденение 1-го и 2-го множеств');
  sn:=sn+sen;
  writeset(f,sn);
  close(f);
  readln
end.