Во входном файле расположена последовательность из 10-ти целых чисел. вывести те из них, которые встречаются в последовательности один раз. только на turbopascal!

Uses crt; const     n = 10; var     f: text;     s: string;     a: array[1..n] of longint;     i,j,k: integer; begin clrscr; writeln('введите имя файла текстового, если он лежит в папке с программой(входнойфайл.txt)'); writeln('или введите полное имя файла (c: .txt)'); readln(s); assign(f,s); reset(f); i: =1; repeat read(f,a[i]); i: =i+1; until i> n; write('содержимое файла: '); for i: = 1 to n do       write(' ',a[i]); writeln; write('уникальные элементы: '); for i: = 1 to n do       begin       k: =1;       for j: = 1 to n do               if i< > j then                     if a[i]=a[j] then k: =k+1;       if k=1 then write(' ',a[i])       end; readln; end. пример: введите имя файла текстового,если он лежит в папке с программой(входнойфайл.txt) или введите полное имя файла (c: .txt) 123.txt содержимое файла: 1 2 13 5 2 1 3 17 19 21 уникальные элементы: 13 5 3 17 19 21

ответ: 26 человек любят конф., 6 мороженое, 20 и конф и мороженое

объяснение: 52÷2 =26 человек любят конфеты. 20 человек любят мороженое и конфеты. 26 - 20 = 6 человек любят мороженое.