Ai biết giúp tớ câu này với. Đề : Nhập M,N từ bàn phím (M<N). Có bao nhiêu số chia hết cho 3 trong phạm vì từ M đến N?

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

program oken;

uses crt;

var m,n,i,dem:integer;

begin

clrscr;

write('nhap m: '); readln(m);

write('nhap n: '); readln(n);

if m<n then 

     for i:=m to n do

          if i mod 3=0 then dem:=dem+1;

writeln('cac so chia het cho 3: ',dem);

readln;

end.