Như này đúng ko nhỉ=))))
uses crt;
var A:array[1..1000]of integer;
i,M:byte;
begin
clrscr;
write ('Nhap M '); readln(M);
for i:=1 to M do
begin
write('A[',i,']=');
readln(A[i]);
end;
writeln;
write('So can tim la ');
for i:=1 to M do
if (A[i] mod 4=0) then write(A[i],' ');
readln
end.