program hip_hop_never_die;
uses crt;
var a,n,i,b,c : integer;
e: array[1..50] of real;
begin
b:=0; c:=0
writeln('nhap tong so cac phan tu: '); readln(n)
for i:= 1 to n do
begin
write('nhap so thu ',i); readln( e[i] );
end;
for i:= 1 to n do
begin
write(' so thu ', i,' la : ',e[i]);
end;
for i:= 1 to n do
begin
if e[i] >= 0 then b:=b+e[i] ;
writeln('tong cac so nguyen duong la: ',b);
end;
for i:= 1 to n do
begin
if e[i] mod 2 =1 then c:=c+1;
writeln('tong cac so le la: ',b);
end;
readln;
end.