uses crt;
const n=20;
var a:array[1..n] of integer;
    i,p:integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i]:=random(100);
 writeln(a[i]:3);
 end;
asm
@1: lea si,a
    mov cx,n-1
    mov p,0
@2: mov ax,[si]
    cmp ax,[si+2]
    jle @3
    mov dx,[si+2]
    mov [si+2],ax
    mov [si],dx
    mov p,1
    add si,2
    loop @2
    cmp p,0
    jne @1
end;
writeln;
for i:=1 to n do write(a[i]:3);
end.