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

Pascal ABC.netVar A:array[1..100]of byte;B:array[1..100]of integer;N,i:integer;BeginRead(N);For i:= 1 to N doBeginRead(A[i]);B[A[i]]:=B[A[i]]+1;End;For i:= 1 to 100 doif B[i]=1 then Write(i,\' \') End.Второй вариант выполнения программы:var n,i,k:integer; a:array[0..100] of integer; begin read(n); for i:=1 to n do begin read(k); inc(a[i]); end; for i:=0 to 100 do if a[i]=1 then write(i,); end.