Tin học 8 mọi người giúp em với ạ em cảm ơn nhiều lắm

(sorry bạn nha, câu 3 mk không dịch được, câu 2 mk làm theo ý mk hiểu, thông cảm nha, cảm ơn)

uses crt;

var n,i,s1,s2:integer;

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

begin

clrscr;

write('nhap do dai day so: '); readln(n);

for i:=1 to n do

begin

write('nhap so thu ',i,': '); readln(A[i]);

if A[i] mod 2 <> 0 then s1:=s1+A[i];

if i mod 2 <> 0 then s2:=s2+A[i];

end;

write('cac phan tu trong day la: ');

for i:=1 to n do

write(A[i]:4);

writeln;

writeln('tong cac phan tu le trong day la ',s1);

write('tong cac phan tu o vi tri le trong day la ',s2);

readln;

end.