B4: tổng số chẳn lẻ.

bà con ơi! xem giúp nha. hehehe k bt đúng sai

program tong_chan_le;

var n,i,c,l:integer;

      a: array [1..250] of integer;

begin

c:=0;

l:=0;

writeln(' nhap so phan tu ban muon nhung nho khong vuot wa 250 do nha: ');

readln(n);

for i:=1 to n do

begin

write('phan tu thu ',i,' la');

read(a[i]);

end;

for i:=1 to n do

begin

if (a[i] mod 2=0) then

c:=c+a[i]

else l:=l+a[i];

end;

writeln('tong so chan la: ',c);

writeln('tong so le la: ',l);

readln

end.