Cho N>0 và dãy số a1, a2,…ăn. hãy tính trung bình cộng của các số lẻ trong dãy số Help me :((

program az;

uses Crt;

var i,n,a,dem : longint;

          S,TBC : real;

begin

clrscr;

S := 0;

dem := 0;

Write(‘Nhap n = ‘); readln(n);

For i:=1 to n do

begin

Write(‘Nhap phan tu thu ‘ , i , ‘ la : ‘); readln(a);

If (a mod 2 <> 0) then

begin

dem := dem + 1;

S := S+a;

end;

end;

TBC := S/dem;

Write(‘TBC cac so le la : ‘,TBC);

readln

end.