Viết chương trình nhập vào số nguyên N của hệ thập phân sau đó thực hiện đổi N ra hệ nhị phân và in kết quả ra màn hình

Chương trình thường (không dùng chương trình con):

program bai_giai;
uses crt;
var n:longint;
    so:byte;
    s,st:string;
begin
    clrscr;
    write('Nhap so nguyen N: ');  readln(n);
    s:='';
    while n<>0 do
        begin
            so:=n mod 2;
            str(so,st);
            s:=st+s;
            n:=n div 2;
        end;
    write(s);
    readln;
end.

Sử dụng chương trình con:

program bai_giai;
uses crt;
var n:longint;
function nhiphan(k:longint):string;
var so:byte;
    s,st:string;
begin
    s:='';
    while k<>0 do
        begin
            so:=k mod 2;
            str(so,st);
            s:=st+s;
            k:=k div 2;
        end;
    exit(s);
end;
BEGIN
    clrscr;
    write('Nhap so nguyen N: ');  readln(n);
    write(nhiphan(n));
    readln;
END.