vct nhập số n vào mảng xuất ra các số có hàng đơn vị là 3.đếm xem có bao nhiêu số

Program NN;
Uses crt;
Type mang=array[1..1000] of longint;
Var A: mang;
    n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                Read(A[i]);
        d:=0;
        For i:=1 to n do
                If A[i] mod 10 = 3 then
                Begin
                        Write(A[i],' ');
                        inc(d);
                End;
        Writeln;
        Write(d);
        Readln
End.