call Read_Byte
        call WriteLn
        mov cl,al
        mov ch,0
        jcxz hotovo
        mov bx,0
cyklus:                           ; vstupn¡ bod cyklu
        inc bx
        mov dx,bx
        call print5               ; procedura vyp¡çe Ÿ¡slo z dx na pØt m¡st
                                  ; menç¡ Ÿ¡slo dopln¡ zprava mezerami
        mov al,' '
        call Write_Char           ; vyp¡ç¡ se dvØ mezery jako oddØlovaŸ
        call Write_Char
        mov al,bl
        mul bl                    ; spoŸ¡t  se mocnina
        mov dx,ax
        call print5
        call WriteLn
        loop cyklus