viết chương trình in ra màn hình các số x và y là số chẵn và chia hết cho 3. Đếm xem có bao nhiêu số?? Giúp mik vs ???????? hứa 5 sao

program nhap;

uses crt;

var A:array [1..1000] of integer;

n,i,dem:integer;

begin writeln (‘nhap vao so phan tu cua mang’);readln (n);

for i:=1 to n do readln (A[i]);

write (‘cac so chia het cho 3 la: ‘);

for i:=1 to n do

if (A[i] mod 3 =0) then

begin

write (A[i]);

dem:=dem+1;

end;

writeln (‘co tat ca ‘,dem,’ so chia het cho 3′);

readln;

end.

Sai thì các bạn bổ sung nha vì mình vẫn còn kém lắm