viết câu lệnh nhập danh sách số nguyên cho mảng 1 chiều, xuất danh sách đó ra màn hình

Program Baitap;
Uses crt;

Var A : array[1..10] of Integer;
      i : integer;
Begin
clrscr;
Writeln ('Nhap day so');
For i:=1 to 10 do 
        Begin
                Write('A[‘,i,’] = ');
                Readln(A[i]); 
        End;

Writeln ('Danh sach cac so trong mang A: ');
For i:=1 to 10 do
                Write(A[i]:5);
        Readln;
End.

uses crt;
var a:array[1..1000]of longint;i,n:longint;
begin
 clrscr;
  write('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.