Program chuong_trinh;
Uses Crt;
var i,n: integer;
A:array[1...1000] of integer;
Begin
clrscr;
write (' Nhap so n: '); readln(n);
for i:=1 to n do
begin
writeln (' Nhap so thu' ,i, ':'); readln (A[i]);
end;
writeln (' Mang da nhập: ');
for i:=1 to n do
write(A[i]);
readln;
End.