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

program zz1;
const n = 15; // задаем количество частей в массиве
var i, k, j:integer; // задаем переменные целого типа
m,v:array [1..n] of integer;
begin
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(21);
for i:=1 to n do // выводим массив на экран
write(m[i], );
writeln; // перебегаем на новейшую строчку для вывода ответа
writeln( встречаются один раз: );
for i:=1 to n do
begin
for j:=1 to n do
if m[j] = m[i] then k:=k + 1;
if k=1 then write(m[i], );
k:=0;
end;
writeln;
writeln( встречаются несколько раз: );
for i:=1 to n do
begin
for j:=1 to n do
if m[j] = m[i] then k:=k + 1;
if kgt;1 then write(m[i], );
k:=0;
end;
end.