{* Задача 105 *}

Unit ZADACH105;
Interface
Implementation
Begin
 writeln('Цифры числа хранятся в таблице b. b[1] содержит цифру высшего разряда a=a, a2, a3...an. Найти число. ');
End.

Program zadach105;

Uses zadach105.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  n : integer;
  i : integer;
  a : integer;
  b : Array[1..6] Of integer;
Begin
  write('Введите кол-во цифр числа n=');
  readln(n);
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    write('b[', i, ']=');
    readln(b[i]);
  End;
  a := 0;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    a := a * 10 + b[i];
  write('Число:', a);
  readln; {* Ждем нажатия Enter *}
End.