khai báo mảng a gồm n phần tử số nguyên (n <=100) mỗi phần tử có giá trị tuyệt đối <= 200. hãy nhập mãng và xuất mãng?

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Read(A[i]);
        For i:=1 to n do Write(A[i],' ');
        Readln
End.