Nhập mảng 30 phần tử nhận lần lượt giá trị nguyên viết và in ra màn hình số lượng phần tử không chia hết cho 5 Giúp em với:(( em đang cần gấp ạ

var a: array[1..30] of integer;

      d, i: byte;

Begin

    for i:=1 to 30 do

       Begin

         Write('a[', i, '] = '); readln(a[i]);

         If (a[i] mod 5<>0) then inc(d);

       End;

    Writeln('co ', d, ' phan tu thoa man');

    For i:=1 to n do if (a[i] mod 5<>0)

         then write(a[i], ' ');

    Readln

end.

program Mang;
uses crt;
var   a: array[1..10000] of integer;
      n,i,dem: integer;
begin
       clrscr;
      
       write('Nhap n= ');readln(n);
      
       for i:=1 to n do
      
            begin
           
                write('a[',i,']: ');readln(a[i]);
               
                If a[i] mod 5 <> 0 then dem:=dem+1;
               
            end;
           
        write('SL pt ko chia het cho 5 la: ',dem);       
              
  readln;
end.