Cho mảng A gồm n phần tử +Nhập và in mảng ra màn hình

uses crt;

var n,i:integer;

begin

  clrscr;

  write('nhap n: ');readln(n);

  for i:=1 to n do 

   begin

     writeln('nhap pt thu ',i,':');readln(a[i]);

   end;

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

 readln;

end.

Program FNG;
Uses crt;
Var A: array[1..1000] 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.