tính tổng giá trị các số chẵn và tổng giá trị các số lẻ trong n số tự nhiên đầu tiên ( với n được nhập từ bàn phím) cần gấp

program so_chan_so_le;

var n,i: integer;

 A : array[1..1000] of integer;

c,l: integer;

begin

clrscr;

readln(n);

writeln('nhap cac phan tu cua day:');

for i:=1 to n do begin

writeln('a[',i,']='); readln(a[i]);

end;

c:=0;

l:=0;

for i:=1 to n do if a[i] mod 2 =0 then c:=c+a[i] else l:=l+a[i];

if c> l then writeln('tong so chan lon hon') else writeln('tong so le lon hon');

readln

end.

var a:array[1..1000000] of longint;n,i,s,sl:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do 
begin
write('Phan tu thu ',i,': '); read(a[i]);
if a[i] mod 2=0 then inc(s,a[i]);
if a[i] mod 2=1 then inc(sl,a[i]);
end;
writeln('Tong chan: ',s);
writeln('Tong le: ',sl);
readln
end.