{* Добавление единиц *}

Unit PEREST2;
Interface
Implementation
Begin
 writeln('Добавление слева и справа по единице.');
End.

Program z1;

Uses perest2.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  a : longint;
  s : longint;
  i : integer;
  k : integer;
  n : integer;
  b : Array[1..20] Of integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('ввод цифры');
  readln(a);
  n := 1;
  While a > 0 Do
  Begin
    k := a Mod 10;
    n := n + 1;
    b[n] := k;
    a := a Div 10;
  End;
  b[1] := 1;
  b[n + 1] := 1;
  For i := n + 1 Downto 1 Do
    s := 10 * s + b[i];
  writeln(s);
  readkey; {* Нажмите любую клавишу *}
End.