іння суми}
kol:=0; {Обнуління кількості}
mn1:=[]; {Оновлення безлічі чисел зустрічаються 1 раз}
mnpos:=[]; {Оновлення безлічі номерів чисел зустрічаються 1 раз}
while not eof (t) do begin {поки не кінець текстового файлу}
readln (t, ch); {Читаємо з нього число}
write (f, ch); {І записуємо в типізований файл}
end;
close (t); {Закриваємо текстовий файл}
reset (f); {Встаємо на початок типізований файлу}
{обробка алогічна обробці в масиві}
for i:=0 to filesize (f) - 1 do begin {беремо одне число з файлу}:=0;
seek (f, i); {Встали перед числом, яке хочемо прочитати з файлу}
read (f, ch1); {Читаємо його}
for j:=0 to filesize (f) - 1 do begin {беремо інше число з файлу}
seek (f, j); {Встаємо перед числом, яке хочемо прочитати з файлу}
read (f, k); {Читаємо його}
if ch1=k then {порівнюємо два числа}
inc (ch); {Якщо рівні, то збільшуємо число зустрічей}
end;
if ch=1 then {якщо число зустрілося лише саме з собою,}
mnpos:=mnpos + [i]; {То записуємо його номер у безліч}
if i in mnpos then begin {якщо номер числа потрапив в безліч,}
seek (f, i); {То навіщось ще раз його читаємо,}
read (f, ch2); {Але в ін змінну, хоча воно є в ch1}
sum:=sum + ch2; {І додаємо до суми}
inc (kol); {Збільшуємо кількість чисел зустрілися 1 раз}
end;; i:=0 to filesize (f) - 1 do {перебираємо всі номери чисел у файлі} i in mnpos then begin {якщо номер входить в безліч номерів,}
seek (f, i); {То знаходимо число під цим номером}
read (f, j); {Читаємо його}
mn1:=mn1 + [j]; {І записуємо в безліч чисел зустрічаються 1 раз}
end;
ch1:=0; {Обнуляємо}
reset (f); {Встаємо на початок файлу}
for i:=filesize (f) - 2 downto 0 do begin {перебираємо числа з кінця файлу} (f, i); {Встаємо перед зчитувати числом}
read (f, j); {Читаємо його в j}
if j in mn1 then {якщо прочитане число входить в безліч,}
for ch:=i to filesize (f) - 2 do begin {то видаляємо його з файлу} (f, ch +1); {Встаємо за ch-им числом (на першому кроці за видаляється)}
read (f, j); {Читаємо число, яке за ch-им}
seek (f, ch); {Встаємо перед ch-им числом}
write (f, j); {Записуємо замість ch-го, наступне за ним, яке було прочитано в j}
end;
end;
k:=filesize (f) - kol; {K-вказує на позицію останнім числом у файлі}
seek (f, k); {Встаємо на цю позицію}
write (f, sum); {Записуємо туди суму чисел зустрілися 1 раз}
writeln («posle...
