Program Tenchuongtrinh;
Uses crt;
Var A: array[1..100] of longint; 
      i,n:longint;
Begin
         Clrscr;
         Write('Nhap n= '); readln(n);
         For i:=1 to n do
           Begin
             Write('A[',i,']= '); readln(A[i]);
           End;
          Writeln('Day vua nhap la: ');
          For i:=1 to n do write(A[i],' ');
          Readln;
End.