program RemoveDuplicates;

const
n = 10;

var
arr: array$$\mathrm{1..}n$$ of integer;
count: array of integer;
i, j, k, duplicates: integer;

begin
// вводим элементы массива
writeln${}^{\prime }Введитеэлементымассива{:}^{\prime }$;
for i := 1 to n do
begin
write${}^{\prime }arr{[}^{\prime },i{,}^{\prime }]{=}^{\prime }$;
readln$arr[i]$;
end;

// инициализируем массив count
SetLength$count,n$;
for i := 1 to n do
count$$i$$ := 1;

// находим повторяющиеся элементы
for i := 1 to n do
begin
duplicates := 0;
for j := i+1 to n do
begin
if $arr[i]=arr[j]$ and (count[j] < 2) then
begin
duplicates := duplicates + 1;
count$$j$$ := count$$j$$ + 1;
end;
end;

// удаляем повторяющиеся элементы
if $count[i]+duplicates$ > 2 then
count$$i$$ := 0;

end;

// выводим массив после удаления повторяющихся элементов
writeln${}^{\prime }Массивпослеудаленияповторяющихсяэлементов{:}^{\prime }$;
for i := 1 to n do
begin
if count$$i$$ > 0 then
writeln${}^{\prime }arr{[}^{\prime },i{,}^{\prime }]{=}^{\prime },arr[i]$;
end;

end.