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

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.