uses crt;
var B : array [1 .. 250] of integer;
i, N, Tong, dem : integer;
begin
clrscr;
write('Nhap so N = '); readln(N);
write('Day B : ');
Tong := 0; dem := 0;
for i := 1 to N do begin read(B[i]);
if (B[i] > 0) and (B[i] mod 10 = 0) then dem := dem + 1;
if B[i] < 0 then Tong := Tong + B[i]; end;
writeln('Tong = ', Tong);
writeln('Dem = ', dem);
write('Danh sach : ');
for i := 1 to N do
if (B[i] mod 2 <> 0) and (B[i] mod 5 = 0)
then write(B[i],' ');
readln
end.