#make_COM#
    org 100h
    jmp start:
     MSG db 'German Volf is creator of this programm.', 13, 10
         db 'My task:', 13, 10
         db 'I need to create cycle for filling array, composed of 10 elements (squares of natural numbers) size 1 byte.', '$'
    start: lea DX, MSG
     mov AH, 9h
     int 21h
     ;mov AH, 4Ch
     ;int 21h
    .data
     mass db 0ah,0bh, 'Array - ', '$'
     text db 13, 10, 'Output is in ASCII code. Look at the ASCII table of the characters.', '$'
     mas db 10 dup (?)
    .code
    main:
     mov ax,@data
     mov cx, 10
     mov BP, 2
     mov bx, 0
     mov al, 2
     mov ah, 2
     mul ah
    go:
     mov mas[bx], al
     inc BP
     mov ax, BP
     mov ah, al
     mul ah
     inc bx
     loop go
    show_mass:
     mov cx, 10
     mov bx, 0
     mov AH, 9h
     lea DX, mass
     int 21h
    show:
     mov AH, 2h
     mov dl, mas[bx]
     add dl, 30h
     int 21h
     inc bx
     loop show
     mov AH, 9h
     lea DX, text
     int 21h
    exit:
     mov AX, 4Ch
     int 21h
    ret