Nhập sô Tự nhiên N và viết chương trình tạo mảng bao gồm n sô nguyên

Program baitap;

Uses crt;

Var A: array[1..200] of integer;

           n,i:integer;

Begin

Clrscr;

Write('Nhap n:');

Readln(n);

For i:=1 to n do

    Begin

    Write('A[',i,']=');

    Readln(A[i]);

    End;

Writeln('So ban vua nhap la:');

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

Readln

End.

Program TaoMang;

uses CRT;

Var a:array[1..10000] of integer;

  N,i:integer;

BEGIN

 Write('Nhap N:'); Readln(N);

For i:= 1 to N do 

           Readln(a[i]);

For i:= 1 to N do 

           Writeln('a [',i,'] = ',a[i]);

END.