{* Задача 237 *}

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

Program zadach237;

Uses zadach237.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; {* Ждем подтверждения пользователя *}
End.