Найти и вывести на экран разность множеств - PascalABC.NET

Формулировка задачи:

создать два множества с произвольным кошичеством элементов, содержащих целые числа в диапозоне от -10 до 10. найти и вывести на экран разность множеств

Решение задачи: «Найти и вывести на экран разность множеств»

Листинг программы

var a,b,c:set of integer;
    i,x:integer;
begin
randomize;
a:=[];
b:=[];
for i:=1 to 21 do
 begin
  x:=-10+random(21);
  a:=a+[x];
  x:=-10+random(21);
  b:=b+[x];
 end;
writeln('Множество А');
for i:=-10 to 10 do
if i in a then write(i:4);
writeln;
writeln('Множество B');
for i:=-10 to 10 do
if i in b then write(i:4);
writeln;
c:=a-b;
writeln('Разность множеств А-В');
for i:=-10 to 10 do
if i in c then write(i:4);
end.

Объяснение кода листинга программы

Объявляются три переменные: a, b и c типа set of integer (множество целых чисел), а также переменная i типа integer и x типа integer.
Переменная i инициализируется значением 1, а переменная x - случайным числом от -10 до 10 (включительно).
В цикле от 1 до 21 выполняется следующее: a) переменная x обновляется случайным числом от -10 до 10; b) переменная a дополняется новым элементом x; c) переменная x обновляется случайным числом от -10 до 10; d) переменная b дополняется новым элементом x.
Выводится сообщение Множество А, после чего в цикле от -10 до 10 для каждого элемента a выводится его значение.
Выводится сообщение Множество B, после чего в цикле от -10 до 10 для каждого элемента b выводится его значение.
Переменная c инициализируется как разность множеств a и b.
Выводится сообщение Разность множеств А-В, после чего в цикле от -10 до 10 для каждого элемента c выводится его значение.