Перевод из одной системы в другую

program Perevod;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  n :longint;
  function FromDec(n, radix:longint):string;
  var
    s: String;
  const
    digit: string[16]='0123456789ABCDEF';
  Label
    M1,M2;
  begin
    s:='';
    M1:
    if n=0 then Goto M2
  else
    s:= digit[(n mod radix)+1]+s;
    n:= n div radix;
    goto M1;
    M2:
    FromDec:=s;
    end;
begin
  Write ('Dec?: ');
  ReadLn (n);
  Write (FromDec (n, 8));
  readln;
end.

[FONT=monospace]program Z_1_2;
{$APPTYPE CONSOLE}
uses
  SysUtils, Crt32, RusString;
Const
 BaseBin = 2; // Основание двоичной системы
 Digit: String[10] = '0123456789';  // Строка символов
Var
 Bin: String;   // Число в двоичной системе счисления
 Dec: Integer;  // Число в десятичной системе счисления
 Symbol,L: Byte;//  Длина строки Bin и номер символа в строке
 count: Byte;   // Счетчик примеров
Label
 M1,M2; // Метки
begin
 // Из двоичной в десятичную
 ClrScr;
 count := 1;
 Repeat  //Цикл
 Write(Count, Rus('. Введите число в двоичной системе счисления: ')); ReadLn(Bin);
 Dec := 0;
 Symbol :=1;
 L := Length(Bin); // Определяем длину строки Bin
 M1: begin //Метка M1
      Dec:= Dec*BaseBin + Pos(Bin[Symbol],Digit)-1;
      (*POS (SUBST, ST)  - функция типа INTEGER; отыскивает в строке ST первое
      вхождение подстроки SUBST и возвращает номер позиции, с которой она начинается;
      если подстрока не найдена, возвращается ноль.*)
      Inc(Symbol);  //  Перемещаемся к следующему символу в строке
      If L>=Symbol then Goto M1; // Проверяем если мы не до шли до конца строки
     end;                        //  Возврщаемся к метке M1
 WriteLn(Rus('   В десятичной: '), Dec);
 // Из десятичной в двоичную
 Bin := ''; // Делаем строку Bin пустой
 M2: Begin // Метка M2
       Bin := Digit[(Dec mod BaseBin)+1]+Bin; // Прибавляем к строке Bin символ
                                             //  остатка от деления плюс один строки Digit
       Dec := Dec div BaseBin;  // Делим
       If Not (Dec=0) Then Goto M2; // Проверяем если Dec<>0 Возвращаемся к M2
     end;
 WriteLn(Rus('   В двоичной: '), Bin);
  Inc(Count);// Прибавляем 1 к Count
  Until (ReadKey=#27) or (Count>10);
   //Условие для выхода- Нажата клавиша ESC или более 10 тестовых примеров[/FONT]
[FONT=monospace]end.[/FONT]

program Z_1_2;
{$APPTYPE CONSOLE}
Const
 BaseBin = 2; // Основание двоичной системы
 Digit: String[10] = '0123456789';  // Строка символов
Var
 Bin: String;   // Число в двоичной системе счисления
 Dec: Integer;  // Число в десятичной системе счисления
 Symbol,L: Byte;//  Длина строки Bin и номер символа в строке
 count: Byte;   // Счетчик примеров
 function Rus(mes: string):string;
// В ANSI русские буквы кодируются числами от 192 до 255,
// в ASCII - от 128 до 175 (А..Я а..п) и от 224 до 239 (р..я).
var
i: integer; // номер обрабатываемого символа
begin
  for i:=1 to length(mes) do //Цикл от 1 до конца строки
    case mes[i] of
      'А'..'п':   mes[i] := Chr(Ord(mes[i]) - 64);
      'р'..'я' :  mes[i] := Chr (Ord(mes [i] ) -16);
    end;
  Rus := mes;
end;
function chbin(S: string):boolean;
var
  i:integer;
  res:byte;
begin
  for i:=1 to Length(s) do
  begin
    res := Pos(S[I],Digit)-1;
    result := (res=0) or (res=1);
    if not result then exit;
  end;
end;
begin
 // Из двоичной в десятичную
 count := 1;
 Repeat  //Цикл
 Write(Count, Rus('. Введите число в двоичной системе счисления: ')); ReadLn(Bin);
 if not chbin(bin) then //Проверка введенного числа
 begin
  Write(Rus('Введенное число не в двоичной системе счисления.'));
  readln;
  exit;
 end;
 Dec := 0;
 Symbol :=1;
 L := Length(Bin); // Определяем длину строки Bin
  repeat
      Dec:= Dec*BaseBin + Pos(Bin[Symbol],Digit)-1;
      Inc(Symbol);  //  Перемещаемся к следующему символу в строке
  until  not (L>=Symbol); // Проверяем если мы не до шли до конца строки
  WriteLn(Rus('   В десятичной: '), Dec);
 // Из десятичной в двоичную
 Bin := ''; // Делаем строку Bin пустой
 repeat
       Bin := Digit[(Dec mod BaseBin)+1]+Bin; // Прибавляем к строке Bin символ
       Dec := Dec div BaseBin;  // Делим
 until dec=0;
 WriteLn(Rus('   В двоичной: '), Bin);
  Inc(Count);// Прибавляем 1 к Count
  Until (Count>10);
   //Условие для выхода- более 10 тестовых примеров
end.