ню}
var ch, sum, kol, j: byte; {Ch-лічильник кількості зустрічей i-го числа в масиві, sum-сума чисел зустрічаються 1 раз, kol-кількість чисел зустрічаються 1 раз, j-лічильник циклу}
mn1, mnpos: mn; {Mn1-безліч чисел зустрічаються 1 раз (які треба видалити), mnpos-безліч номерів тих елементів масиву які зустрічаються 1 раз}
begin mn1:=[]; {Оновлення безлічі чисел}
mnpos:=[]; {І оновлення безлічі номерів}
reset (t); {Встаємо на початок текстового файлу}
for i:=1 to n do begin {мабуть у файлі завжди 10 чисел}
readln (t, ch); {Читаємо число з файлу}
a [i]:=ch; {Записуємо прочитане число в масив}
end;
close (t); {Закриваємо текстовий файл}
ch:=0; {Обнуляємо кількість зустрічей}
sum:=0; {І Обнуляємо суму чисел зустрічаються 1 раз}
for i:=1 to n do begin {в цьому циклі береться один елемент з масиву}
ch:=0;
for j:=1 to n do begin {тут інший елемент, таким чином відбувається порівняння кожного елемента з кожним, при цьому розглядається навіть пара сам з собою, т е коли i=j}
if (a [i]=a [j]) then {якщо i-ий елемент масиву=j-му} (ch); {То збільшуємо кількість зустрічей i-числа}
end;
if ch=1 then {якщо кількість зустрічей одно 1, т е число збіглося лише саме з собою - воно єдино}
mnpos:=mnpos + [i]; {То його номер записуємо в безліч номерів}
if i in mnpos then begin {якщо номер потрапив у безліч,}
sum:=sum + a [i]; {То це число додаємо до суми}
inc (kol); {Збільшуємо лічильник чисел, що зустрічаються 1 раз}
end;
end;
for i:=1 to n do {перебираємо всі номери елементів масиву}
if i in mnpos then {якщо номер елемента масиву входить в безліч номерів}
mn1:=mn1 + [a [i]]; {То значення елемента записуємо в безліч чисел зустрічаються 1 раз}
for i:=n downto 1 do {перебираємо елементи масиву з кінця}
if a [i] in mn1 then {якщо елемент масиву входить в безліч,}
delmass (i, a); {То видаляємо його з масиву}
a [n-kol +1]:=sum; {В масиві після видалення залишиться n-kol елементів, тоді на n-kol +1 місце записуємо суму елементів зустрілися в масиві 1 раз}
{виводимо вийшов масив}
writeln («posle»);
for i:=1 to n-kol +1 do (a [i], «»);;;; fill (var g: fille); ch, ch1, ch2, sum, kol, k, j: byte; {Ch1, ch2 і k - допоміжні змінні для читання і запису в типізований файл}
mn1, mnpos: mn; {Всі інші змінні мають колишнє призначення}
begin assign (f, «tipfile. txt»); {Пов'язуємо файлову змінну f з файлом на диску по імені що в лапках}
reset (t); {Встаємо на початок текстового файлу}
rewrite (f); {Типізований файл відкриваємо на перезапис}
sum:=0; {Обнул...
