muốn thay đổi kích thước của mảng, chỉ cần thay đổi giá trị của hằng n

uses crt;
const n=5;
var 
a:array [1..n] of real;
c,i:Integer ;
tong_loi_nhuan,loi_nhuan_trug_binh:real;
begin
clrscr;
for i:=1 to n do
begin
write('hay nhap loi nhuan cua cog ty tiep theo:');
ReadLn(a[i]);tong_loi_nhuan:=tong_loi_nhuan+a[i];
end;
loi_nhuan_trug_binh:=tong_loi_nhuan/n;
c:=0;
writeln('Danh sach cong ti co loi nhuan thap hon muc trung binh');
for i:=1 to n do
       if a[i] < loi_nhuan_trug_binh then
       begin
       writeln('Cong ti thu ',i,' thu nhap',a[i]:10:2);
       c:=c+1;
       end;
       writeln ('Co tong cong ',c, ' cong ti co muc loi nhuan thap hon muc trung binh');
readln;
end.