viết thuật toán tính tổng Trùng bình cộng của các số bội 100

Program NN;
Uses crt;
Var n,i,s,d: longint;
    A: array[1..10000] of longint;
Begin
        Clrscr;
        Write(‘Nhap n: ‘); Readln(n);
        s:=0; d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] mod 100 = 0 then
                Begin
                        inc(d);
                        s:=s+A[i];
                End;
        End;
        Write(s/d:0:2);
        Readln
End.