Đổi số 13 từ hệ thập phân sang hệ nhị phân đáp án là 1101. Em hãy trình bày cách giải

uses crt;
var a : array[1..100]of longint ;
    i, j, n : longint ;
begin
clrscr;
 readln(n);
 i := 1 ;
         repeat
        a[i] := n mod 2 ;
        n := n div 2 ;
        i := i + 1 ;
         until n = 0 ;
    for j := i - 1 downto 1 do write(a[j]);
end .

Mk chỉ nhớ cách giải thui vì thầy mk giải lâu rùi.