Viết chương trình nhập và 1 mảng số nguyên gồm n phần tử (n<=100). In ra mảng vừa nhập

Var a:array[1..100] of longint;

n,i:longint;

begin

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]:3);

readln

end.

Program FNG;
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
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        For i:=1 to n do Write(A[i],' ');
        Readln
End.