{ Цифры числа хранятся в таблице 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.