*nganiruky*

var n,tc,i,tl,s: integer;

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

begin

tc:=0; tl:=1;s:=0;

readln(n);

for i:=1 to n do

    read(a[i]);

for i:=1 to n do

    if (a[i] mod 2=0) then

        tc:=tc+a[i];

writeln('Tong so nguyen chan: ',tc);

for i:=1 to n do

    if (a[i] mod 2<>0) then

        tl:=tl*a[i];

writeln('Tich so nguyen le: ',tl);

for i:=1 to n do

    if a[i]=3 then

        s:=s+a[i];

writeln('Tong gia trị của cac so nguyen co gia tri bang 3: ',s);

end.

**Chúc bạn học tốt**

program bai_giai;

uses crt;

var tongc,tichl,tong3,i,n:longint;a:array[1..1000]of longint;

begin

clrscr;

write('nhap n:');readln(n);

tongc:=0;

tichl:=1;

tong3:=1;

for i:=1 to n do 

begin

write('nhap a[',i,']=');readln(a[i]);

if(a[i] mod 2=0)then tongc:=tongc+a[i] else tichl:=tichl*a[i];

if(a[i]=3)then tong3:=tong3+a[i];

end;

writeln('tong chan=',tongc);

writeln('tich le=',tichl);

write('tong cac so bang 3=',tong3);

readln

end.