Var n,i:integer;
B:array[1..100] of integer;
Begin
Write('nhap n la'); readln(n);
For i:=1 to n do
Begin
Write('B[',i,']=');
Readln(B[i]);
End;
For i:=1 to n do write(B[i]:6); {phần này chỉ hiện thị các nguyên tử mảng B thôi, không bắt buộc}
Readln;
End.