nhập 1 dãy số gồm n phần tử rồi thống kê các số đó mỗi số chỉ thống kê 1 lần;

program bai_giai; uses crt; var a:array[1..1000] of longint;i,j,k,dem,kt,n:longint; begin  clrscr;   write('nhap n:');readln(n);   for i:=1 to n do         begin          write('a[',i,']=');readln(a[i]);         end;   for i:=1 to n do         begin          kt:=1;           for k:=1 to i-1 do if(a[i]=a[k])then kt:=0;           if(kt=1)then                 begin                  dem:=0;                  for j:=1 to n do if(a[i]=a[j])then inc(dem);                  writeln(a[i],':',dem);                 end;         end;  readln; end.