Nhập các số nguyên dương khác không tính tổng các số chẵn và đếm các số lẻ ? Mình cảm ơ nhiều ạ.

uses crt;

var a : array [1 .. 100] of integer;

i, n, s, d : integer;

begin

clrscr;

s := 0; d := 0;

write('Nhap so phan tu cua day so : '); readln(n);

write('Nhap ', n ,' so nguyen : ');

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

if a[i] mod 2 = 0 then s := s + a[i] else d := d + 1;

end;

writeln('Tong so chan = ', s);

writeln('Co ', d ,' so le');

readln

end.

đây là phân thân nha em

phần khai báo em tự triển khai

  begin

tong:=0;

dem:=0;

for i:=1 to n do 

if  a[i] mod 2 = 0 then tong:= tong + a[i]

else inc(dem);

write('tong cac so chan la:',tong);

write('so cac so le la:',dem);

realdn

end.