Nhập mảng A gồm N phần tử (N<=10). Đếm và tính tổng các số chia hết cho 2 và 3 trong mảng. Đưa kết quả ra màn hình

program LN;
uses crt;
var A:array[1..10] of integer;
    i,n,d,s:integer;
begin
clrscr;
writeln('nhap n: ');
readln(n);
for i:= 1 to n do
        begin
        writeln('nhap vao ptu thu ',i);
        readln(A[i]);
        end;
for i:= 1 to n do
        if (A[i] mod 2 = 0) and (A[i] mod 3 = 0) then
                begin
                d:=d+1;
                s:=s+A[i];
                end;
writeln('co ',d,' ptu chia het cho 2 va 3');
writeln('tong la: ',s);
readln;
end.