program bai1;
use crt;
var n,i:integer;
a:array[1..500] of integer;
begin
clrscr;
repeat
write ('Nhap n'); readln(n)
until (0<n) and (n<1000);
for i:=1 ton do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if (a[i] mod 2=0) then s1=s1+a[i]
else s2=s2+a[i] ;
writeln('tong so chan',s1);
write(' tong so le',s2);
readln
end.