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

Первое задание, программа задает массив, сортирует его, затем сравнивает элемент с последующемuses crt;vara:array[1..100] of integer;i,j:integer;procedure swap(var x,y: integer);   var t: integer; begin    t := x;    x := y;    y := t end;beginfor i:=1 to 100 do a[i]:=random(100);for j:=1 to 99 dofor i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);for i:=1 to 99 do if a[i]=a[i+1] thenbeginwriteln(a[i]);writeln(a[i+1]);end;end.Второе задание. Программа также сортирует и сравнивает элементыuses crt;vara:array[1..100] of integer;i,j:integer;procedure swap(var x,y: integer);   var t: integer; begin    t := x;    x := y;    y := t end;beginfor i:=1 to 100 do a[i]:=random(100);for j:=1 to 99 dofor i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);for i:=1 to 99 do if a[i]<>a[i+1] thenbeginwriteln(a[i]);end;end.