program bai1;
uses crt;
var n,i ,s:integer;
Var A:array[1..50] of integer;
tb:real;
Begin
        clrscr;
        Writeln('Nhap so phan tu cua mang A');
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]); 
        End;
tb:=0; s:=0;
for i:=1 to n do
begin
s:=s+a[i];
tb:=s/n;
end;
if tb mod 2=0 then write('tbc la so chan')
else write('tbc la so le');
        Write('trung binh cong cua mang:',tb:6:2,' );
        Readln;
End.