Nhập mảng chuyển các phần tử của mảng thành số nhị phân và xuất ra màn hình ví dụ 10=1010

uses crt;
var a:array[0..10000] of longint;
    i,n:longint;
function bin(n:longint):string;
var s:string;
begin
    s:='';
    while n <> 0 do
        begin
            s:=chr(n and 1 + 48) + s;
            n:=n shr 1;
        end;
    exit(s);
end;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do write(bin(a[i]),' ');
readln;
end.

program bai_giai;
uses crt;
var A:array[1..100000] of longint;
    n,i:longint;
function nhiphan(k:longint):string;
var s,st:string;
begin
    s:='';
    while k<>0 do
        begin
            str(k mod 2,st);
            s:=st + s;
            k:=k div 2;
        end;
    exit(s);
end;
BEGIN
    clrscr;
    write('Nhap so luong phan tu: ');  readln(n);
    for i:=1 to n do
        begin
            write('Nhap so thu ',i,': '); readln(A[i]);
        end;
    writeln('Nhi phan theo thu tu: ');
    for i:=1 to n do writeln(nhiphan(A[i]));
    readln;
END.