uses crt; var c,i,j,n:integer; a:array [1..1000] of integer; begin clrscr; read(n); for i:=1 to n do read(a[i]); for i:=1 to n do for j:=1 to n-1 do if (a[j] mod 10) > (a[j+1] mod 10) then begin c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c end; for i:=1 to n do write(a[i],' ') end.