1/
var <tên biến mảng>:[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;
2/
var a: array[1..100] of integer;
3/
var dtb: array[1..60] of real;
4/
write ('nhap so phan tu cua mang: '); readln (n);
for i:=1 to n do
begin
write ('nhap a[',i,']:'); readln (a[i]);
5/
for i:=1 to n do write (a[i],' ');