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 Help me😢😢😢😢😭😭

Program BaiTap;

Uses crt;

Type mang = array[1..10] of longint;

Var A: mang;
    i: longint;

Function Average(A: mang): extended;
Var i, sum: longint;
Begin
        sum := 0;
        For i:=1 to 10 do
                sum := sum + A[i];
        exit(sum / 10);
End;

Begin
        Clrscr;
        For i:=1 to 10 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        Write('TBC = ',Average(A) : 0 : 2);
        Readln
End.

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.