Cho mảng a gồm 10 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 Giúp mình với mọi người ơiiii????

program mang;

var i:longint;

       a:array[1..10] of longint;

function tb:real;

begin

    tb:=0;

   for i:=1 to 10 do tb:=tb+a[i];

tb:=tb/10;

end;

begin

for i:=1 to 10 do read(a[i]);

write(tb:10:1);readln;

end.