program nhap_gia_tri;

uses crt;

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

      n,i:integer;

begin

       clrscr;

       write('Nhap so dai cua day: ');  readln(n);

       for i:=1 to n do

              begin

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

              end;

       write('Day vua nhap la: ');

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

       readln;

end.

var n,i:longint;

      a:array[1..100] of longint;  (khai báo biến mảng)

begin

read(n);    (nhập số lượng phần tử của dãy)

for i:=1 to n do read(a[i]);  (nhập giá trị của phần tử thứ i)

end.

Do đề ko yêu cầu tính toán gì nên chỉ nhập giá trị thôi nhé !!!

Chúc bạn làm tốt :)