»);
reset (f); {Встаємо на початок файлу}
for i:=0 to k do begin {і виводимо з нього k елементів}
read (f, j); {Читаємо з файлу чергове число}
write (j, «»); {Виводимо його на екран з пропуском}
end;
close (f); {Закриваємо типізований файл}
writeln;;; spisok; i, j, sum: byte; mn1: mn; {Призначення змінних таке ж що і вище}
begin reset (t); {Встаємо на початок текстового файлу}
first:=nil; {Початок списку відсутній}
while not eof (t) do begin {поки не кінець файлу} (p1); {Створюємо новий елемент списку}
readln (t, p1 ^. x); {В його числове поле читаємо число з файлу}
if first=nil then {якщо список не має початок,}
first:=p1 {то новий елемент буде початком}
else p2 ^. adr:=p1; {Інакше під'єднуємо його до кінця}
p2:=p1; {Обидва покажчика ставимо на новий елемент, він же останній}
end;
p1 ^. adr:=nil; {Список був створений, останній елемент списку посилалася в нікуди}
p1:=first; {P1 встаємо на початок списку}
close (t); {Закриваємо текстовий файл}
ch:=0; {Обнуляємо число зустрічей}
sum:=0; {Та суму}
mn1:=[]; {Оновлюємо безліч}
while p1 <> nil do begin {поки p1 зустріла кінець списку робимо:}
ch:=0;
p2:=first; {P2 встановлюємо на початок списку}
while p2 <> nil do begin {поки p2 зустріла кінець списку робимо:}
if p1 ^. x=p2 ^. x then {порівнюємо числа в p1 і p2}
inc (ch); {Якщо рівні, то збільшуємо число зустрічей}
p2:=p2 ^. adr; {P2 встановлюємо на наступний елемент списку}
end;
if ch=1 then begin {якщо число в p1 однаково лише саме з собою,}
mn1:=mn1 + [p1 ^. x]; {То записуємо його в безліч чисел}
sum:=sum + p1 ^. x; {І додаємо його до суми}
end;
p1:=p1 ^. adr; {P1 встановлюємо на наступний елемент у списку}
end;:=first; {P1 і p2} 2:=p1; {Встановлюємо на початок списку}
while (p1 <> nil) do begin
if not (p1 ^. x in mn1) then begin {якщо число в p1 не входить в безліч,}
p2:=p1; {То p2 ставимо на місце p1}
p1:=p1 ^. adr; {А p1 зсуваємо на наступний елемент списку}
end
else {інакше елемент треба видалити}
if p1=first then begin {якщо елемент перший у списку}
first:=p1 ^. adr; {То початком списку буде другий елемент}
dispose (p1); {А перший - колишнє початок, видаляємо}
p1:=first; {P1 встановлюємо на новий початок списку}
end
else begin {інакше елемент не перший у списку і його ...
