Bài 1 : Nhập và in ra mảng số nguyên gồm N phần tử (N< hoặc bằng 100, N nhập từ bàn phím)

program nhap_in;

uses crt;

var A:array[1..100] of integer;

      n,i:byte;

begin

        clrscr;

        write(‘Nhap so luong phan tu N: ‘);   readln(n);

        for i:=1 to n do

                begin

                        write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                end;

        write(‘Mang da nhap la: ‘);

        for i:=1 to n do

                write(A[i],’ ‘);

        readln;

end.