Дан массив, состоящий из 100 целых чисел. Выведите все числа, которые встречаются в этом массиве: а) несколько раз;

begin
  var a:=ArrRandom(100,-50,50); a.Println;
  var d:=new Dictionary;
  foreach var x in a do
    if d.ContainsKey(x) then d[x]:=d[x]+1
    else d[x]:=1;
  Writeln('Встречаются более одного раза');
  d.Where(kv->kv.Value>1).Select(kv->kv.Key).OrderBy(x->x).Println;
  Writeln('Встречаются ровно один раз');
  d.Where(kv->kv.Value=1).Select(kv->kv.Key).OrderBy(x->x).Println;
end.