закодируй числовую информацию с помощью цифрового алфавита состоящего из двух знаков цмфр 0,1

var a:integer;s:String;beginreadln(a);while a>0 do begininsert(chr(48+a mod 2),s,1);a:=a div 2;end;writeln(s);readlnend.Работает только с положительными числами