Viết chương trình đếm các số lẻ là bội của 3 từ 1 -> n ( n là số tự nhiên nhập vào bàn phím , 1<n<100000)

Program FNG;
Uses crt;
Var n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
                If (i mod 3 = 0) and (i mod 2 <> 0) then inc(d);
        Write(d);
        Readln
End.n

Program FNG;
Uses crt;
Var n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
                If (i mod 3 = 0) and (i mod 2 <> 0) then inc(d);
        Write(d);
        Readln
End.