program Test;

VAR
  r: real;
begin
  r:=BasisToDezimal('0..9A..F','FF');
  writeln(R:10:0);
  r:=BasisToDezimal('01','1001010');
  writeln(R:10:0);
  r:=BasisToDezimal('0A..Z','A0Z'); 
  writeln(R:10:0);
  r:=BasisToDezimal('9753','3579');
  writeln(R:10:0);

  Writeln(DezimalToBasis('0..9A..F',255));
  Writeln(DezimalToBasis('01',74));
  Writeln(DezimalToBasis('0A..Z',755));
  Writeln(DezimalToBasis('9753',228));
end.