Cho mảng A gồm 10 phần tử thuộc kiểu nguyên . Viết hàm đến số lượng số nguyên dương chia hết cho 7 của mảng A Giúp vs ạ

uses crt;
var i,d:integer;
begin
    clrscr;
    d:=0;
    for i:=1 to 10 do if (i>0)and(i mod 7=0) then d:=d+1;
    write(‘Co ‘,d,’ phan tu chia het cho 7′);
    readln;
end.