.model tiny
.386
.data
    tekst db "Podaj liczbe: $",10,13
    tekstp db 10,13,'Wynik: $'
.stack 100h
.code
start:
    mov ax,@data
    mov ds,ax

    mov dx,offset tekst
    mov ah, 09h
    int 21h

    mov ah, 01h
    int 21h

    xor ah, ah
    sub al, '0'
    mov bl, 10
    mul bl



    mov cl, al

    mov ah, 01h
    int 21h
    sub al, '0'
    add al, cl

    mov dx,offset tekstp
    mov ah, 09h
    int 21h

    mul al


    xor ah,ah

    mov bl, 100
    div bl

    mov dl,al

    mov cl,ah

    add dl, '0'
    mov ah, 02h
    int 21h

    xor ah,ah

    mov bl,10
    mov al,cl

    div bl

    mov dl,al

    mov cl,ah

    add dl, '0'
    mov ah, 02h
    int 21h



    mov dl,cl

    add dl, '0'
    mov ah, 02h
    int 21h








    mov ah, 4Ch
    int 21h
end start