Сформировать множества а и в, базовый тип которых 0..50 , по заданному числу элементов для каждого множества. вывести на экран все элементы множества а, не принадлежащие в.

// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018// Внимание! Если программа не работает, обновите версию!

begin

 var (na,nb):=ReadInteger2('Мощность множеств A и B:');

 var A,B:set of integer;

 repeat

   A+=[Random(0,50)]

 until A.Count=na;

 A.Println;

 repeat

   B+=[Random(0,50)]

 until B.Count=nb;

 B.Println;

 (A-B).Println

end.