Viết chương trình chuyển đổi số tự nhiên N cho trước sang hệ cơ số 2 bằng việc xây dựng hàm chuyển đổi. PASCAL

Program chuyen_doi;

uses crt;

var n:longint;

{—HAM—}

function nhiphan(k:longint):string;

var du:byte; s:string;

begin

     nhiphan:=”;

     if (k=0) or (k=1) then str(k,nhiphan)

     else

               while k<>0 do

                    begin

                         du:=k mod 2;

                         k:=k div 2;

                         str(du,s);

                         nhiphan:=s+nhiphan;

                    end;

end;

{—Chuong-trinh-chinh—}

BEGIN
     clrscr;

     write(‘Nhap N: ‘);   readln(n);

     write(‘He nhi phan la: ‘,nhiphan(n));

     readln;

end.