var
  iNum: integer;
  mode: boolean;
  sTemp: string;
begin
  writeln('0 - 2 => 8', #13, '1 - 8 => 2');
  repeat
    readln(sTemp);
  until ((sTemp = '0') or (sTemp = '1'));
  mode := (sTemp = '0' ? true : false);
  write('Num: ');
  readln(iNum);
  iNum := System.Convert.ToInt32(iNum.ToString(), (mode ? 2 : 8));
  writeln(System.Convert.ToString(iNum, (mode ? 8 : 2)));
end.