Составить программу, которая формирует список l, включив в него по одному разу элементы, которые входят одновременно в оба списка l1 и l2. pascal abc. net

// pascalabc.net 3.0, сборка 1088 begin   var l1: =new list< integer> ;   l1.addrange(seqrandom(15,-20,20));   writeln('список l1'); writeln(l1);   var l2: =new list< integer> ;   l2.addrange(seqrandom(10,-5,40));   writeln('список l2'); writeln(l2);   var l: =new list< integer> ;   l.addrange(l1.intersect(l2).distinct);   writeln('список l'); writeln(l); end. тестовое решение: список l1 [8,7,-13,0,12,-1,3,5,-15,13,18,-10,16,14,-1] список l2 [31,37,25,13,2,14,5,8,10,34] список l [8,5,13,14]