uses crt; var a: array[1..100] of integer; n,i,d,j:integer; begin clrscr; write('nhap n: '); readln(n); for i:=1 to n do begin write('Nhap a[',i,']: '); readln(a[i]); end; for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin d:=a[i]; a[i]:=a[j]; a[j]:=d; end; d:=1; for i:=1 to n do if a[i]<>a[i+1] then begin writeln(a[i],' => ',d,' lan'); d:=1; end else d:=d+1; readln; end.
