nhập mảng:
write ('nhap so phan tu cua mang: '); readln (n);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (a[i]);
end;
in ra các phần tử của mảng:
write ('cac phan tu cua mang la: ');
for i:=1 to n do {n là số phần tử của mảng}
write (a[i]:3);