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.

cHJvZ3JhbSB3ZGY7CnZhcgogIEE6IGFycmF5IFsxLi4xMDAwMDAwXSBvZiBpbnRlZ2VyOwogIG4sIGksIGosIHo6IGludGVnZXI7CmJlZ2luCiAgeyDQstCy0L7QtCB9CiAgd3JpdGVsbign0JLQstC10LTQuNGC0LUg0LrQvtC70LvQuNGH0LXRgdGC0LLQviDRjdC70LXQvNC10L3RgtC+0LInKTsKICB3cml0ZSgnbj0nKTtyZWFkbG4obik7CiAgZm9yIGkgOj0gMSB0byBuIGRvIAogIGJlZ2luCiAgICB3cml0ZSgnYVsnLGksJ109Jyk7cmVhZGxuKGFbaV0pOwogIGVuZDsKICAKICB7INGB0L7RgNGC0LjRgNC+0LLQutCwIH0KICBmb3IgaTo9biBkb3dudG8gMiBkbwogIGJlZ2luCiAgICBmb3Igajo9MSB0byBpLTEgZG8KICAgIGlmIChhW2pdIG1vZCAxMCk+KGFbaisxXSBtb2QgMTApIHRoZW4KICAgIGJlZ2luCiAgICAgIHo6PWFbal07CiAgICAgIGFbal06PWFbaisxXTsKICAgICAgYVtqKzFdOj16OwogICAgZW5kOwogIGVuZDsKICAKICB7INCy0YvQstC+0LQgfQogIHdyaXRlbG47CiAgd3JpdGUoJ3JlczogJyk7CiAgZm9yIGkgOj0gMSB0byBuIGRvIHdyaXRlKGFbaV0sJyAnKTsKZW5kLg==

NQoxMAoxOAoxNQo5MAoxMQ==

5
10
18
15
90
11