Làm giúp mình với ạ .Cho mảng A gồm n phần tử thuộc kiểu nguyên .Viết hàm tính giá trị trung bình của mảng A

uses crt;
var a:array[1..100] of integer;
i,tbc,n:integer;
Begin

clrscr;
write(‘Nhap n: ‘);
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do tbc:=tbc+a[i];
writeln(‘Trung binh cong la: ‘,tbc/n:5:3);
readln;
chúc bạn học tốt!!! + ctlhn