program nhap_xuat;

uses crt;

var A:array[1..1000] of integer;

     n,i:integer;

begin

       clrscr;

       write('Nhap N: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': '); readln(A[i]);

              end;

       write('Day so vua nhap la: ');

       for i:=1 to n do write(A[i],' ');

       readln;

end.

program Day_so;

uses crt;

var A:array [1..500] of integer;

      N,i: integer;

Begin

         write('Nhap so phan tu: '); readln(N);

         for i:=1 to N do

         begin

                  write('A[',i,']='); readln(A[i]);

         end;

         write('Day so vua nhap la: ');

         for i:=1 to N do write(A[i],'  ');

         readln

End.