{* Из двоичной системы счисления в десятичную *}

Unit CIKL_7;
Interface
Implementation
Begin
 writeln('Перевести число из двоичной системы счисления в десятичную');
End.

Program cikl_7;

Uses cikl_7.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  j : integer;
  s : integer;
  l : integer;
  i : integer;
  k : integer;
  a : Array[1..8] Of integer;
  b : Array[1..8] Of integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Vvedite chislo v desyatichom znachenii');
  readln(j);
  s := j;
  k := 0;
  While s > = 1 Do
  Begin
    a[i] := (s Mod 2);
    s := (s Div 2);
    i := i + 1;
  End;
  l := i;
  While i1 Do
  Begin
    b[k] := a[i - 1];
    i := i - 1;
    k := k + 1;
  End;
  b[l - 1] := a[1];
  For i := 0 To l - 1 Do {* Переменная i увеличивается с 0 до l *}
    write(b[i]);
  readkey; {* Нажмите любую клавишу *}
End.