program   MangA;

uses     crt;

var     A:array [1..N] of real;

i:byte;

begin

clrscr;

writeln('Nhap du lieu mang A); readln(A);

write('Nhap N'); readln(N);

(nhập dữ liệu)for i:=1 to N do

begin

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

readln(A[i]);

end;

(in dữ liệu)for i:=1 to n do write( A[i]:6);

readln;

end.

*** chú ý:

cái phần trên là theo mình hiểu 

những phần mình làm mình đã chú thích vào rồi ý bạn không hiểu phần nào thì cmt nhé

hoặc mình làm sai chỗ nào thì bạn cmt để mình giải lại nhé 

**cảm ơn <3 

uses crt;
var i,n:byte;
a:array[1..100] of integer;
BEGIN
        clrscr;
        write('Nhap N:'); readln(n);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
        end;
        readln
END..

Chúc bạn học tốt.

Cho mik xin ctlhn.