unit Binary;

interface

Function ByteBin(luku:byte):string;
Function BinByte(luku:string):byte;

implementation

Function merkki(luku:byte):char;
var jono:string[16];
Begin
  jono:='0123456789ABCDEF';
  merkki:=jono[luku+1];
End;

Function ByteBin(luku:byte):string;
Var
   laskuri:integer;
   jono:string;
Begin
   jono:='';
   For laskuri:=0 to 7 Do Begin
      jono:=Chr(Ord('0')+Ord(Odd(luku shr laskuri)))+jono;
   End;
   ByteBin:=jono;
End;

Function BinByte(luku:string):byte;
Var numero:byte;
Begin
   numero:=0;
   While Length(luku)>0 Do Begin
      numero:=numero*2;
      numero:=numero+Ord(luku[1]<>'0');
      Delete(luku,1,1);
   End;
   BinByte:=numero;
End;

Begin
   Write(BinByte('1000'));

End.