Tinh. K.T.

chuoi bai tap ...khikhikhi......
program tinh;
 uses crt;
VAR n,i,d,c,b,l,t: integer;
a: array [1..100] of integer;
begin
clrscr;
writeln('nhap day so n '); readln(n);
d:=0;
t:=0;
c:=0;
l:=0;
b:=0;
for i:=1 to n do
begin
write('phan tu thu ',i,' la');
read(A[i]);
if (A[i]>0) then
d:=d+A[i];
if (A[i] mod 2=0) then
begin
c:=c+A[i];
t:=t+1;
end;
if (A[i] mod 3=0) then
begin
b:=b+A[i];
l:=l+1;
end;
readln
end;
writeln('tong cac so duong la ',d);
writeln('tong cac so chan la ',c);
writeln('so luong so chan la ',t);
writeln('tong cac so chia het cho 3 la ',b);
writeln('so luong cac so chia het cho 3 la ',l);
readln
end.