Program Tinh_tong;
Uses crt;
Var i,n,dem: integer;
      a:array[1..100] of integer;
      S:real;
begin
  write('nhap n='); readln(n);<br />  for i:=1 to n do<br />      begin<br />        write('a[',i,']='); readln(a[i]);
       end;
  dem:=0;
  for i:=1 to n do 
  if a[i] mod 2 = 0 then dem:=dem+1; S:=S+a[i];
 write('so phan tu chan cua day la:');
 write(' tong cac so chan la:', S:8:2);
readln
end.

giúp tôi với:Viết chương trình nhập 1 dãy số và hãy in các số và hãy in các số chẵn ra màn hình và tính tổng của chúng