program wdf;
var
  A: array [1..1000000] of integer;
  n, i, j, z: integer;
begin
  { ввод }
  writeln('Введите колличество элементов');
  write('n=');readln(n);
  for i := 1 to n do 
  begin
    write('a[',i,']=');readln(a[i]);
  end;
  
  { сортировка }
  for i:=n downto 2 do
  begin
    for j:=1 to i-1 do
    if (a[j] mod 10)>(a[j+1] mod 10) then
    begin
      z:=a[j];
      a[j]:=a[j+1];
      a[j+1]:=z;
    end;
  end;
  
  { вывод }
  writeln;
  write('res: ');
  for i := 1 to n do write(a[i],' ');
end.