Program ct;                                                                                                          

USES CRT;                                                                                                  

Var n,i: Integer;                                                                                                  

A:array[1..10] of integer;                                                        

Begin                                                                                                            

 Clrscr;                                                                                                          

  Write(' nhap n:'); Readln(n);                                                                

   For i:=1 to n do                                                                                              

    begin                                                                                                              

       Write('A[',i,']='); Readln(A[i]);                                                                

    end;                                                                                                          

For i:=1 to n do                                                                                            

Write(A[i]);              

 Readln;                                                                                                    

End.

Program ct;                                                                                                           USES CRT;                                                                                                    Var n,i: Integer;                                                                                                    A:array[1..10] of integer;                                                         Begin                                                                                                              Clrscr;                                                                                                           Write(' nhap n:'); Readln(n);                                                                 For i:=1 to n do                                                                                              begin                                                                                                               Write('A[',i,']='); Readln(A[i]);                                                                end;                                                                                                           For i:=1 to n do                                                                                             Write(A[i]);                                                                                                Readln;                                                                                                     End.