Cho dãy C gồm n phần tử .Đếm và in ra các số lẽ chia hết cho 3 có trong dãy C

Program bai_tap ;

Uses crt ;

Var C: array [1..150] of integer ;

       i,n,d : integer;

Begin

Write('nhap n=');

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,' =');

Readln (C[i]);

end;

d:=0;
Writeln ('Cac so le chia het cho 3 trong day la:');

For i:=1 to n do 

If (C[i] mod 2=1) and (C[i] mod 3=0)  then 
Begin
Write (C[i]:5);

d:=d+ 1;
end;
Writeln;

Writeln('so so le chia het cho 3 trong day la:', d);

Readln

End.

program ct;

uses crt;

var d,i,n:integer;

C:array[1..100] of integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang C[',i,']:=');readln(c[i]);

end;

d:=0;

for i:=1 to n do

if (c[i] mod 2=1) and (c[i] mod 3=0) then

beign

writeln(c[i]:6);

d:=d+1;

end;

writeln('so le chia het cho 3',d);

readln

end.