{ Цифры числа хранятся в таблице b. b[1] содержит цифру высшего разряда a=a, a2, a3...an. Найти число. }

var n,i,a : integer;
    b : array[1..6] 
	of integer;
 begin
   write('Введите кол-во 
   цифр числа n=');
   readln(n);
   for i:=1 to n do
   begin
     write('b[',i,']=');
	 readln(b[i]);
   end;
   a:=0;
   for i:=1 to n do 
   a:=a*10+b[i];
   write('Число:',a);
   readln;
 end.