Решение задачи на языке Pascal ABC с блок-схемой

var
  d, a, b, c: Set of Byte;
  i, n: byte;
  x: Byte;
  s: string;
 
begin
  randomize;
  d := [];
  s := '';
  n := random(5) + 2;
  Writeln('Заполните первое множество ', n, ' числами: ');
  for i := 1 to n do
  begin
    Readln(x);
    Include(a, x);
  end;
  //  write(a);
  n := random(5) + 2;
  Writeln('Заполните второе множество ', n, ' числами: ');
  for i := 1 to n do
  begin
    Readln(x);
    Include(b, x);
  end;
  //  write(b);
  n := random(5) + 2;
  Writeln('Заполните третье множество ', n, ' числами: ');
  for i := 1 to n do
  begin
    Readln(x);
    Include(c, x);
  end;
  //  write(c);
  writeln('Введите запрос в виде A+B: ');
  readln(s);
  if s = 'A+B' then
  begin
    d := a + b;
    Writeln('Объединение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A+C' then
  begin
    d := a + c;
    Writeln('Объединение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'B+C' then
  begin
    d := b + c;
    Writeln('Объединение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A*B' then
  begin
    d := a * b;
    Writeln('Пересечение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A*C' then
  begin
    d := a * c;
    Writeln('Пересечение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'B*C' then
  begin
    d := b * c;
    Writeln('Пересечение множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A-B' then
  begin
    d := a - b;
    Writeln('Разность множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'A-C' then
  begin
    d := a - c;
    Writeln('Разность множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
  if s = 'B-C' then
  begin
    d := b - c;
    Writeln('Разность множеств ', s);
    for i := 0 to 255 do
      if i in d Then 
        Write(i:5);
  end
  else
    writeln('Некорректный запррос!');
end.