Дано сначала число n, а затем n натуральных чисел, не превосходящих 100. Выведите на экран в порядке возрастания только те из них, которые встречаются в данной последовательности ровно один раз.На паскале АВС с использованием массива

в первом цикле от 1 до 100 простите не заметил

var i,n,k:integer;a:array[1..100] of integer;beginread(n);for i:=1 to n doa[i]:=0;for i:=1 to n dobeginread(k);inc(a[k]);end;for i:=1 to 100 doif a[i]=1 then write(i,' ');end.